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TECHNICAL MEMORANDUM 


COMPUTERIZED ATMOSPHERIC TRACE CONTAMINANT CONTROL SIMULATION 

FOR MANNED SPACECRAFT 


INTRODUCTION 

Buildup of atmospheric trace contaminants in enclosed volumes such as a manned spacecraft 
may lead to potentially serious health problems for the crewmembers. For this reason, control 
methods are implemented to minimize the concentration of atmospheric contaminants to levels that 
are considered safe for prolonged, continuous exposure. Methods employed to achieve these levels 
are classified into two major categories — passive and active. Passive control refers to the material 
selection and control process to which all bulk materials and assembled articles must be subjected to 
qualify for flight onboard a manned spacecraft. Criteria included in this process are flammability, odor, 
and offgassing characteristics. Through this screening, the uncontrolled production via offgassing 
mechanisms of atmospheric contaminants from materials used in the habitable areas of the space- 
craft are limited, but not eliminated. Active control methods must be used to provide the second level 
of contaminant control. Activities such as food preparation, housekeeping, and personal hygiene 
contribute to the base contamination load found in the spacecraft atmosphere. Contaminants are also 
produced by crewmember metabolism, experiment hardware and operations, and spacecraft hard- 
ware operations. The activities onboard the spacecraft combined with material offgassing produce 
contaminants in sufficient quantities that the atmospheric concentration may build up to levels which 
the crewmembers may find irritating or possibly intolerable. Therefore, the total contamination con- 
trol approach requires both the passive and active approaches. 

Active contamination control can be achieved through various means. Typical technologies 
used onboard manned spacecraft include physical adsorption on granular activated charcoal or other 
adsorbent material, chemical adsorption using impregnated granular activated charcoals and granular 
lithium hydroxide (LiOH), ambient temperature catalytic oxidation, and high temperature catalytic 
oxidation. Other means which are significant include removal by absorption into humidity condensate 
and spacecraft atmospheric leakage. These latter methods are not specifically designed to remove 
atmospheric contaminants, but have been shown to be significant when the total contaminant 
material balance in a spacecraft is considered. 

Designs for active contamination control hardware have evolved from single granular- 
activated charcoal canisters used onboard earlier manned spacecraft, to a regenerable molecular 
sieve adsorbent used onboard the Skylab orbital workshop. Space shuttle and Spacelab programs 
use layered adsorbent canisters containing nonregenerable adsorbent and ambient temperature 
catalytic oxidation materials. Future contamination control hardware will build on these technologies 
to include regenerable adsorbent materials and high temperature oxidation catalysts. 

Designing these contamination control devices is difficult since they must be designed with- 
out thorough knowledge of the overall load that must be controlled. Historical data from past manned 
missions are important for understanding the loads from offgassing, crew metabolism, and house- 
keeping sources. This information forms the basis for a generic spacecraft load model which can be 
used for hardware design purposes. As the spacecraft design matures, the contamination control 
hardware is refined by replacing the load model data with data for the actual flight hardware. 


Ultimately, the spacecraft and contamination control designs converge. The final result is a robust 
contamination control hardware design with sufficient margin which allows a wide range of hardware 
and activities to be accommodated onboard the spacecraft with no adverse effects on the crew- 
members’ health. 


COMPUTER SIMULATION BACKGROUND 

In the past, designing contamination control hardware required extensive testing to charac- 
terize and select the appropriate control technologies. Capacities for granular-activated charcoal and 
other adsorbent materials had to be determined along with development of theoretical approaches to 
predicting the performance of future contamination control hardware. Early efforts to select technol- 
ogy and design hardware for spacecraft contamination control hardware began during the Apollo pro- 
ject Studies conducted before 1965 by Lockheed Missiles and Space Company in Sunnyvale, CA, 
developed early spacecraft contaminant load models and selected candidate technologies. 1 23 These 
technologies have been the basis for designing contamination control hardware for manned space- 
craft ever since. More detailed studies on adsorption and catalytic oxidation followed. High tempera- 
ture catalytic oxidation was studied by Olcott 4 and contaminant adsorption by Robell, et al. 5 by late 
1970. In his work, Robell developed an extremely useful correlation for predicting the loading capac- 
ity of granular-activated charcoal by using the potential theory developed by Polanyi. 6 This work 
became the basis for computer simulation of adsorption processes to be used onboard manned 
spacecraft for atmospheric contamination control. The first generation simulation program was 
developed by Olcott before May 1972 using the technique developed by Robell. 7 By 1975, a proto- 
type contamination control system had been fabricated by Lockheed, and the first generation com- 
puter simulation program for adsorption had been used under NASA contract NAS 1-11526 to ana- 
lyze the hardware performance. 8 

Work continued in characterizing contamination control technologies, and low temperature 
oxidation catalysts were studied in 1977. That same year, the first integrated computer simulation 
model for spacecraft atmospheric contamination control was developed by Jagow, et al. at Lockheed. 9 
This program was specifically tailored for analyzing the performance of the Spacelab contamination 
control canister which consisted of two layers of adsorbent material followed by a layer of low-tem- 
perature, carbon monoxide oxidation catalyst This program was modified and released later in 1977 
as a general computer simulation program capable of simulating any spacecraft contamination control 
system given the appropriate input data. 10 This basic computer program was used for design and 
preflight performance analyses for Spacelab missions. 

Little work was conducted on the basic computer program until NASA contract NAS8-36406 
produced a new release of the computer program in 1986 which featured input data manipulation 
using commercially available spreadsheet software and operation on a personal computer. This pro- 
gram version, designated version 5.0, was used as the basis for Space Station Freedom contamina- 
tion control hardware design. 11 Improvements since 1986 have included further enhancements for 
input data manipulation, a routine to calculate the toxic hazard index, improved simulation of humid- 
ity condensate absorption, and improved output data manipulation flexibility. Written in FORTRAN 
77, the program can be run on IBM-compatible personal computers (version 8.0 Alpha), Digital 
Equipment Corporation VAX mainframe computers using the VMS operation system (version 8.0 
Beta), and Apple Computer, Inc., Macintosh® computers (version 8.0 Gamma). Table 1 summarizes 
the progression of the computer program from its initial version in 1970 to the present version which 
was completed in April 1992. 
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Table 1. Atmospheric TCCS program development summary. 


Version 

Release Date 

Remarks 

1.0 

May 1972 

Initial program version developed by Lockheed for 
assessing charcoal bed performance using empirical 
charcoal loading data. Documented in NASA 
contract report NAS CR-2027. 

2.0 

November 28, 1975 

Improved program version used by Lockheed for 
prototype contamination control hardware 
performance predictions. 

3.0 

January 15, 1977 

A generalized program developed by Lockheed 
based on versions 1.0 and 2.0 to predict Spacelab 
contamination control system performance. 

4.0 

September 1, 1977 

A revised version of the Spacelab computer program 
which simulated more general contamination control 
systems designs. This version was developed by 
Lockheed. 

5.0 

September 5, 1986 

The first version developed by Lockheed specifically 
for personal computer use. This version greatly 
enhanced data input capabilities. 

6.0 

June 1, 1989 

Version 6.0 added the calculation of the toxic hazard 
index. This version was developed by the Boeing 
Company and MSFC personnel. 

7.0 to 7.9 

August 2, 1980 
through 
April 1, 1992 

Versions 7.0 through 7.9 were developed at MSFC. 
This progression improved the ability of the program 
to simulate transient contamination cases and an 
improved humidity condensate absorption routine 
based on Henry’s law. Charcoal bed breakthrough 
calculation instability was corrected using a 
Newton-Raphson method and user interaction was 
improved. 

8.0 

April 10, 1992 

Output routines were modified to allow data output 
for concentration, efficiency, and toxic hazard index 
to separate files which can be accessed by 
spreadsheet programs for data analysis and 
plotting. This version was developed at MSFC. 
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SIMULATION PROGRAM OVERVIEW 


Computer Hardware Requirements 


The trace contamination control simulation (TCCS) computer program is written in 
FORTRAN 77 and can be run on IBM AT-compatible personal computers running the disk operating 
system (DOS) version 3.0 or higher. This version requires at least an IBM AT or compatible 
machine with an 80287 floating point processor and a minimum of 512 kilobytes of memory. Upgraded 
personal computers using a 386 or 486 processor are preferred since they provide more rapid execu- 
tion. The program is compiled and linked on the personal computer using Ryan-McFarland 
FORTRAN version 2.42. 

A similar version of the program, version 8.0 Beta, allows operating on a Digital Equipment 
Corporation VAX mainframe computer which uses the VMS operating system. A 50,000 block disk 
allocation is recommended to accommodate files produced by a large simulation. The program files 
occupy up to 5,000 blocks of disk space. The mainframe version may offer increased speed and disk 
storage for very large simulations; however, recent improvements in personal computing speed and 
disk storage capacity have made this version less desirable especially since input data files are more 
easily created using a personal computer and uploaded to the mainframe computer. This makes a 
personal computer with file transfer capabilities an important hardware requirement for using the 
mainframe version. 

Version 8.0 Gamma, which runs on Apple Computer, Inc., Macintosh machines, operates 
similarly to the Alpha and Beta versions. The Macintosh user interface, which uses a mouse and 
pop-up menus for input file management, makes the program even more user-friendly by requiring 
fewer commands to be entered from the keyboard. It is recommended that this version be run on a 
Macintosh n family machine with 8.0 megabytes of RAM and Macintosh System 7 operating system 
version 7.0 or later. 


Input/Output Data Manipulation Recommendations 

Input data is manipulated using commercially available spreadsheet software. The program 
can read input data using both space- and comma-delimited formats, while output data is produced 
in a space-delimited ASCII format. Because of these program input and output data formats, it is 
recommended that the Lotus Development Corporation (Lotus) software, Lotus 123® with 
Printgraph®, be used for input data generation and output data manipulation for the personal com- 
puter version. This software can print to a file in the space-delimited ASCII format required by the 
program and import program output data directly without any additional processing by the user. 

Other spreadsheet programs may be used, such as Microsoft Corporation’s Excel®, for input file 
generation, but the user must save the input files in the comma separated variable (CSV) format. 
The ASCII-formatted output data produced by the program requires additional manipulation within 
the spreadsheet program, such as using the parse function, to allow it to be analyzed if Excel is used 
for output data analysis. 

The mainframe program version input and output data manipulation is more difficult. It is 
recommended that input data files be prepared on a personal computer using Lotus 123® and 
uploaded to the mainframe. Text files may be created using the VMS editor; however, managing 
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these files is more difficult than using a spreadsheet program. Some output data, such as data to be 
used to generate plots, should be downloaded and manipulated using the personal computer spread- 
sheet software or other commercially available data plotting software. 

The Macintosh version of the program should use the Microsoft Corporation Excel spread- 
sheet software for input file preparation and output data analysis. Input files prepared using Excel 
must be saved as a CSV file for the program to read the data. Output data produced by the program 
may be imported into the Excel spreadsheet and then the parse function run to place each number in 
a spreadsheet cell. Data plots may be prepared using Excel or the data may also be loaded into other 
popular Macintosh plotting software such as Cricket Graph® or Kaleidograph®. 


Calculation Overview 


The TCCS program calculates the cabin concentration of specified contaminants given a set of 
contamination control devices as a function of time. Depending on the output data selections made, 
data for each basic time increment may be output detailing the current contaminant cabin concentra- 
tions, their comparison to the spacecraft maximum allowable concentrations (SMAC’s), the removal 
rate for each contaminant in each device, the cumulative total contaminant mass removed by each 
device, the increment device single pass removal efficiency for each contaminant, and the toxic 
hazard index. 

Input Data 

Input information consists of the names and properties of each contaminant, the order and 
design characteristics of the removal devices, and time dependent data such as changes in contami- 
nant generation rate or removal device flow rate as a function of time. These input data are read into 
the program using three separate data files. The first file contains contaminant data, the second 
contains removal device definition data, and the third contains time dependent data. Files are used 
for input to minimize repetitive input by the user. 

Contaminant Remov al Devices 

Removal device configuration is provided by a routine which allows up to 15 total devices 
with parallel and series arrangement. Up to three devices in parallel can be placed upstream of any 
removal device. The program simulates nine removal device types. Two device types, the cabin and 
leakage, must always be included in the device definition file. Modular programming allows for quick 
revision or addition of device types if necessary; however, any internal modifications require recom- 
piling and relinking the program. 

Calculation Convergence 

A discrete time increment approach is used by the program which uses contaminant concen- 
tration from the previous increment as the initial concentration. The final concentration is calculated 
based on the device configuration, contaminant generation rate, contaminant removal rate, removal 
device efficiency, and other specific information relevant to that time increment. This approach allows 
flexibility which simulates transient situations such as inadvertent contaminant releases or other 
time dependent contamination events. The calculation data are stored in matrices which increases 
the program execution speed. 
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Since contaminant properties can vary with respect to ease of removal and cabin concentra- 
tion small time increments would be the most accurate for any given simulation. However, the pro- 
gram uses a log-mean direct solution approach combined with a Newton-Raphson convergence rou- 
tine to allow much larger time increments which significantly reduce the computer runtime required. 
This approach produces an exact solution during steady-state conditions with constant removal 
device efficiencies. This is normally the case during a simulation, but efficiency may vary in some 
cases, such as for a contaminant that is breaking through an adsorbent bed. In this case, the 
Newton-Raphson convergence technique combined with decreasing the time increment to one- 
twentieth the size of the basic increment for that contaminant only provides the desired calculation 
accuracy without affecting the overall run time. 

The prediction and convergence routines use the Newton-Raphson technique to ensure that 
the removal device calculations are made with the proper contaminant inlet concentration. 
Contaminant concentrations are predicted using removal efficiencies of the previous increment and 
the generation rates for the present increment. Actual device efficiencies and contaminant concentra- 
tions are calculated by the convergence routine and compared to the predicted values. This process 
continues until the predicted and calculated values agree within a specified error. 

If convergence is not obtained for a contaminant, warning statements built into the program 
alert the user. In addition, other warning statements concerning input and output are provided to aid 
simulation diagnostics. Print options are provided to allow printing the contents of calculation 
matrices and convergence values. These options allow quick identification of problems with the input 
device configuration or contaminant data. 

Output Data 

Program output data consist of standard formatted output with column headings and page 
numbers and interactive formatted output to files for data plotting. Standard formatted data output is 
specified using print switches in the device definition input file while plot data output is specified 
interactively. Standard output consists of the contaminant name, cabin concentration, SMAC, and a 
designation of whether the cabin concentration exceeds the SMAC. Also, the standard print 
switches allow the contaminant removal rate, cumulative mass removed, and removal efficiencies tor 
each contaminant in each device to be output Standard output may be directed to the computer 
terminal screen, a specific data file, or a printer. These data include page numbers, time increment 
identification, and other information relating to the time increment Interactive output decisions are 
made by the user to produce separate files containing concentration, device efficiency, and toxic 
hazard index data as a function of time. These files are in a spreadsheet format and can be imported 
to a spreadsheet to allow manipulation and preparation of data plots. The toxic hazard index is also 
interactively sent to the standard formatted output in addition to a plot file if desired. 


PROGRAM OPERATION 


The computerized atmospheric trace contaminant control simulation program requires 33 
FORTRAN 77 routines. Figure 1 shows a block flow diagram of a simulation of an atmospheric 
contamination control case. An operation description for using this program includes instructions for 
preparing input data files and operating the program. 
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Figure 1. Simplified computer program flow chart 
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Input Data File Preparation 


Before program operation, three input files must be prepared to define the cont^inant 
orooerties and generation rates, removal device configuration, and time dependent inputs. These files 
Recreated using commercially available spreadsheet software which is capable of producing space 

delimited ASCII files. Lotus 123 is the preferred spreadsheet program for .72 ? tE files 
The print-to-file option in Lotus is used to send the appropriate data ™n^to each J 
are read by the program, and the data is placed into calculation matrices NN CDI DD. and TT 
Matrix NN is a 1 by 300 matrix containing the contaminant names, CDI is a 23 by 300 matrix co 

contaminant physical properties defined in table 2, matrix DD is a 15 by 22 rnamx containing 
removal device design and configuration data defined in tables 3 mid 4,andmatnx TT is a _ * 
matrix containing time dependent contaminant generation rate and device flow rate data. The matrix 
^ are aSusmble! however, the personal computer version is limited to 300 contaminants so that 
the contaminant matrix does not exceed 64 kilobytes to provide a more rapid run time. 


Table 2. Required contaminant physical properties and generation data. 


Contaminant Property 

Units and Remarks 

Contaminant name 

30 charcter maximum 

Cabin generation rate 

mg/h 

Liquid density 

gm/cm 3 (cabin conditions) 

Molar volume 

cm 3 /gram-mole (cabin conditions) 
(0 = no charchoal removal) 

Molecular weight 

gm/gram-mole 

Vapor pressure 

mg/m 3 (cabin conditions) 

Henry’s Law constant 

atm/mole-fraction 

Lithium hydroxide removal 

lb m LiOH/lb m contaminant removed 
(0 = no removal) 

Chemical category 

According to NHB 8060. IB Appendix D 

Maximum allowable concentration 

mg/m 3 

Generation rate in devices 3 to 15 

mg/h 

Degree of oxidation in a high-temperature 
oxidizer 

0 = none; 1 = fully 
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Table 4. Device definition data by device type for data table columns 8 through 16. 
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Used to store total weight of LiOH used in the calculation in kg/h 

Used to store total weight of LiOH used during the calculation in kg 

Print switches are set to 1 for printing and 0 for no printing. No. 1 to 5 for diagnostics, 6 to 8 for printout 
0 = no t reatment; 1 = rh mmate treatment for formaldehyde; 2 = phosphoric add treatment for ammonia 

















































































Contaminant Data Input File Preparation 


The contaminant data input file contains the contaminant names, physical properties, genera- 
tion rates in the cabin and each device, and the degree of oxidation in a high temperature catalytic 
oxidation process. These data are read into program calculation matrices NN and CDI. Sample input 
is shown in figure 2. Data required for each column of the contaminant data input file are the 
following: 

1. The contaminant sequential number, 1 through 300 

2. An apostrophe to enclose the contaminant name as required by FORTRAN 77 

3. The contaminant name up to 30 characters 

4. An apostrophe to enclose the contaminant name 

5. The contaminant cabin generation rate in milligrams per hour (mg/h) 

6. The contaminant liquid phase density in grams per cubic centimeter (g/cm 3 ) 

7. The contaminant molar volume in cubic centimeters per gram-mole (cm 3 /gmole) 

8. The contaminant molecular weight in grams per gram-mole (g/gmole) 

9. The contaminant vapor pressure at the cabin temperature expressed in milligrams per 
cubic meter (mg/m 3 ) 

10. The water solubility for the contaminant expressed as the Henry’s Law coefficient in 
atmospheres per mole fraction (atm/mole fraction) — enter a zero if the compound is 
insoluble or no Henry's Law coefficient is available 

11. The LiOH removal expressed as the weight of LiOH consumed per weight of contami- 
nant removed in lb m LiOH/lb m contaminant 

12. The chemical group classification for the contaminant specified in appendix D of NHB 
8060. IB 

13. The SMAC or other threshold value expressed in milligrams per cubic meter (mg/m 3 ) 

14. The contaminant generation rate at the inlet to device number 3 in mg/h 

15. The contaminant generation rate at the inlet to device number 4 in mg/h 

16. The contaminant generation rate at the inlet to device number 5 in mg/h 

17. The contaminant generation rate at the inlet to device number 6 in mg/h 

18. The contaminant generation rate at the inlet to device number 7 in mg/h 
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Figure 2. Sample contaminant input data table and input file. 


19. The contaminant generation rate at the inlet to device number 8 in mg/h 

20. The contaminant generation rate at the inlet to device number 9 in mg/h 

21. The contaminant generation rate at the inlet to device number 10 in mg/h 

22. The contaminant generation rate at the inlet to device number 11 in mg/h 

23. The contaminant generation rate at the inlet to device number 12 in mg/h 

24. The contaminant generation rate at the inlet to device number 13 in mg/h 

25. The contaminant generation rate at the inlet to device number 14 in mg/h 

26. The contaminant generation rate at the inlet to device number 15 in mg/h 

27 The decimal oxidation efficiency per pass for the contaminant in a high temperature 
catalytic oxidizer where 1.0 is fully oxidized and 0.0 is no oxidation. 

Some general considerations should be noted when preparing the contaminant data input file. 
They are the following: 

1. The molecular weigh* for ammonia, formaldehyde, carbon monoxide and hydrogen must 
be exactly 17.0, 30.03, 28.10, and 2.02 since they are used as flags in the progra 

2. The entire set of information, columns 1 through 27, must be input for each individual 
contaminant 

3. Each cell in all matrices (contaminant, device, and time) must contain a value or a zero 

4. The column width in all matrices (contaminant, device, and time) should be sufficient to 
permit at least one blank space between the column entries 

5. Printing to a file should be unformatted and the range should exclude the first column 
(contaminant number) and any column headings 

c. The file must be created in one piece without any line feeds (except at the end of a line) 
"age aTttte left margin must te set ,o 0 and the right margm to 240 when 

using Lotus 123 

7 The contaminant generation rates at the inlets of devices (columns 14 through 26) are for 
caL w! ir e contaminants are generated in a closed or confined space and are passed 
through a removal device(s) before entering the cabin (for example, a c°nt^mantis p 
duced in a experimental working volume and is passed through a charcoal bed before 

entering the cabin) 

8. Some contaminant physical property darn may not be available in the literature and must 
be estimated using correlations. 
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The device definition mauix, DD, contains the information which defines the removal device 
configuration. This information includes the type of devices, their arrangement, flow rates, and 
physical size or dimensions. Basic system data; such as the cabin volume, temperature, basic time 
increment size, convergence eiror specification, and the multicomponent adsorption coexistence 
factor; are also contained in this matrix. In addition, program data output for standard formatted data 
is controlled from this matrix. A sample device definition file is shown by figure 3. Data required for 
each of the first seven columns are the following: 

1. The device number ranging from 1 through 15 

2. The standard volumetric atmospheric flow through the device in cubic meters per hour 
(m J /h) 

3. Device type number as defined in table 5 

4. Upstream device number 1 by device number (column 1) 

5. Upstream device number 2 by device number 

6. Upstream device number 3 by device number 

7. A zero is entered in this column for all devices since this column is used to store calcu- 
lated values during the program run. 

Columns 8 through 16 are specific for each device type. Data required for these columns for each 
device type are the following: 


8. Device decimal removal efficiency equal to zero 

9. Cabin atmospheric volume in cubic meters (m 3 ) 

10. Cabin absolute temperature in kelvin (K) 

11. Basic time increment in hours (h) 

12. Convergence error as decimal percent (recommended values of 0,01 or 0.001) 

13. Coexistence factor, approximate value of 1.20, to account for interaction or blockage of 
contaminants in granular activated charcoal beds 

14. Not used for input therefore zero is input 

15. Not used for input therefore zero is input 

16. Not used for input therefore zero is input. 
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Figure 3. Sample device definition data. 



Table 5. Device type number and description 


Type Number 

Description 

1 

Cabin 

2 

Cabin leakage 

3 

Axial flow charcoal bed 

4 

Radial flow charcoal bed 

5 

Lithium hydroxide bed 

6 

Carbon monoxide oxidizer 

7 

High temperature catalytic oxidizer 

8 

Condensing heat exchanger 

9 

Dummy device 


Device Type Number 2: Cabi n Leakage 

8. Device decimal removal efficiency equal to 1.0. 

Columns 9 through 16 for the leakage device are used to set standard formatted data output print 
switches. These columns contain either zero (0) to tell the program not to print or one (1) to tell the 
program to print. Print switches 1 through 5 are for diagnostic data output and print switches 6 
through 8 are for final data output. Typically, print switches 1 through 5 are set to zero during a 
normal simulation run. 

9. Set print switch 1 to zero or one to regulate printing the contents of matrices CC and DD 
at the end of the precalculation setup routine, PCSET 

10. Set print switch 2 to zero or one to regulate printing of the one- tenth increment conver- 
gence routine for one time increment for one contaminant (these results will be printed 
only if the one-tenth increment routine is used) 

1 1. Set print switch 3 to zero or one to regulate printing of the convergence values of pre- 
dicted and calculated contaminant concentration for the convergence routine CONVRG 
for the standard and one-twentieth time increments (useful if convergence problems 
occur) 

12. Set print switch 4 to zero or one to regulate printing of the results for one contaminant 
from the main calculation routine, MCALC, after the average concentration is calculated 
(matrix DD and part of matrix CC for one contaminant) 

13. Set print switch 5 to zero or one to regulate printing the contents of matrices DD and CC 
at the end of each time increment 

14. Set print switch 6 to zero to print only the cabin concentration for each contaminant for 
each time increment or to one to print the contaminant removal rate, mass removed, and 
device efficiencies in addition to the cabin concentration for each time increment 
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15. Set print switch 7 to zero to allow form feeds between output pages or to one to 
suppress form feeds between output pages 

16. Set print switch 8 to zero to print calculation results specified by print switch 6 at the end 
of the run only or to one to print calculation results at the end of each time increment. 

Device Type Number 3: Axial Flow Charcoal Bed 

8. Maximum device decimal removal efficiency equal to 1.0 

9. Charcoal bed length in meters (m) 

10. Charcoal bed diameter in meters (m) 

11. Not used for input and set to 0 

12. Charcoal bulk density in kilograms per cubic meter (kg/m 3 ) 

13. Charcoal bed treatment type (1 for chromate treated charcoal for formaldehyde removal, 2 
for phosphoric acid treated charcoal for ammonia removal, or 0 for untreated charcoal) 

14. Time of first regeneration in hours (h) 

15. Time interval between each regeneration in hours (h) 

16. Regeneration duration in hours (h). 

Device Type Number 4: Radial Flow Charcoal Bed 

8. Maximum device decimal removal efficiency equal to 1.0 

9. Radial flow bed length in meters (m) 

10. Radial flow bed outside diameter in meters (m) 

11. Radial flow bed inside diameter in meters (m) 

12. Charcoal bulk density in kilograms per cubic meter (kg/m 3 ) 

13. Charcoal bed treatment type (1 for chromate treated charcoal for formaldehyde removal, 2 
for phosphoric acid treated charcoal for ammonia removal, or 0 for untreated charcoal) 

14. Time of first regeneration in hours (h) 

15. Time interval between each regeneration in hours (h) 

16. Regeneration duration in hours (h). 
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Device Tvpe Numb er 5: LiQH Bed 

8. Maximum device decimal removal efficiency equal to 1.0 

9. LiOH bed length in meters (m) 

10. LiOH bed diameter in meters (m) 

11. Not used for input and set to 0 

12. LiOH bulk density in kilograms per cubic meter (kg/m 3 ) 

13. Time of first changeout in hours (h) 

14. Time between changeouts in hours (h) 

15. Not used for input and set to 0 

16. Not used for input and set to 0. 

Device Tvne Number 6: Amhient-Temneratnre CO Oxidizer 

8. Maximum device decimal removal efficiency equal to 1.0 

9. Oxidizer bed length in meters (m) 

10. Oxidizer bed diameter in meters (m) 

1 1. Not used for input and set to 0 

12. Not used for input and set to 0 

13. Not used for input and set to 0 

14. Not used for input and set to 0 

15. Not used for input and set to 0 

16. Not used for input and set to 0. 

Device. Tvne Number 7: High-Temp erature Catalytic Oxidizer 

8. Maximum device decimal removal efficiency equal to 1.0 

9. Not used for input and set to 0 

10. Not used for input and set to 0 

1 1. Not used for input and set to 0 
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12. Not used for input and set to 0 

13. Not used for input and set to 0 

14. Not used for input and set to 0 

15. Not used for input and set to 0 

16. Not used for input and set to 0. 

Device Type Number 8; Condensing H eat Exchanger 

8. Maximum device decimal removal efficiency equal to 1.0 

9. Condensate flow rate in kilograms per hour (kg/h) 

10. Not used for input and set to 0 

11. Not used for input and set to 0 

12. Not used for input and set to 0 

13. Not used for input and set to 0 

14. Not used for input and set to 0 

15. Not used for input and set to 0 

16. Not used for input and set to 0. 

Device Type Number 9: Th e Dummy Device 

The dummy device serves to set the flow rate through a line when combining or splitting 
flows between upstream and downstream devices. Legal and illegal dummy device use is illustrated 
at the bottom of figure 4. When combining or splitting streams, dummy devices are required to set 
the upstream flow rates being combined or split. 

8. Maximum device decimal removal efficiency equal to 0 

9. Not used for input and set to 0 

10. Not used for input and set to 0 

11. Not used for input and set to 0 

12. Not used for input and set to 0 

13. Not used for input and set to 0 
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14. Not used for input and set to 0 

15. Not used for input and set to 0 

16. Not used for input and set to 0 
Removal Device Arrangement R ules 

Some simple rules apply to arranging removal devices in the removal device definition file. 
These rules are the following: 

1. The first device must always be the cabin device type 1 

2. The second device must always be the leakage device type 2 

3. Device numbers 3 through 15 may be any legal device type 

4. Devices must be numbered so that calculations for upstream devices occur before calcu- 
lations for downstream devices since calculations are sequential by the device number 
specified in column 1 

5. Inlet flow rates must be specified for each device to allow proper inlet concentration cal- 
culation for split flows 

6. If the cabin is upstream of any device, column 4 should indicate this by entering a 1. 

Figure 4 shows a sample device configuration along with some legal and illegal device configurations. 



A DUMMY DEVICE SETS THE FLOW IN AN OPEN STREAM TO BE COMBINED WITH ANOTHER STREAM 
IF NO OTHER LEGAL DEVICE TYPE IS USED TO SET THE FLOW ACCORDING TO THE 
FOLLOWING FLOW DIAGRAMS 



ILLEGAL 


Actual flow situation but Illegal 
tor simulation slnoe all flows must be Initialized 
upstream of a flow spilt or combination 



LEGAL 


Dummy Device. DD, used to initialize the 
flow 


NOTE NUMBERS INDICATE THE DEVICE NUMBER. NOT THE DEVICE TYPE AND BEGIN WITH 3 SINCE CABIN AND 
LEAKAGE ARE DEVICE NUMBERS 1 AND 2 FOR ANY SIMULATION. 

Figure 4. Sample device configurations and dummy device use. 
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Removal Device Regeneration 


Regeneration of the axial and radial flow charcoal beds and the LiOH bed are accomplished by 
entering the appropriate regeneration information into matrix DD. Columns 14, 15, and 16 are used 
for regenerating the axial and radial charcoal beds and should contain the first time in hours from the 
beginning of the run that regeneration occurs (note that the run begins at zero hours and the run time 
increments itself according to the basic time increment), the time in hours between each regenera- 
tion, and the time required to regenerate the bed in hours. Columns 13 and 14 are used for LiOH bed 
regeneration and should contain the first changeout time in hours and the time between each change 
out in hours, respectively. No regeneration duration is required for the LiOH bed. It is important that 
the time between each regeneration or changeout and the regeneration time must be equal to or an 
even multiple of the basic time increment for the calculation. If they are not, the program will truncate 
them. Rules to be followed when simulating a regenerable bed are the following: 

1. The initial regeneration time, changeout or regeneration interval, and time to regenerate 
must be multiples of the basic time increment specified in the device definition matrix row 
1 column 1 1 

2. If the values are not even multiples of the time increment, they will be truncated to the 
next smallest multiple which could be zero 

3. If the regeneration duration desired is less than one time increment, the input flow rate 
can be modified manually in the program input according to the following: 

QmoA = factual ^{1 — (Tj-eg duration^ ^reg interval)} (1) 

The modified flow rate should be input in the device definition matrix column 2 for that 
device, the regeneration duration should then be set to zero. If the flow rate is changed 
during the simulation, it may be necessary to add a dummy device in parallel with the 
regenerating device so that the original flow rate may be supplied to any possible 
downstream devices 

4. For no regeneration, set the regeneration interval equal to zero. 

Time-Dependent Data Input File Preparation 

During a simulation run, it is possible to change the generation rate of any contaminant both 
in the cabin or for any device which is operating. Device flow rates and other device information such 
as the cabin volume, the cabin temperature, and basic time increment may also be changed. Time- 
dependent changes are accomplished by using the time dependent data matrix, TT. This matrix con- 
tains seven columns for each row. Each line in matrix TT does not allow simultaneous contaminant 
generation rate and device definition data changes. For example, the flow rate and contamination 
generation rate cannot be changed using a single line. Each change must have its own unique change 
line. However, two simultaneous device definition changes may be made for a single removal device 
using one time change file line. Table 6 shows the heading for the time-dependent data table and six 
common cases for time-dependent data changes. An example time-dependent data file is shown by 
the seven columns under the data heading of table 7. The time-dependent data file read by the pro- 
gram is created by selecting only the time change numbers when writing the data to the file. The 
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Table 6. Several common time-dependent changes. 


Type of Change 

Change Items 


FILE : TCTT02 28-May 1992 

TIME DEPENDENT CONTAMINANT INPUT DATA FILE (MAT 
MAKE SURE ALL CELLS HAVE VALUE OR 0 IN CELL 

TT) 



USE RANGE 
USE RANGE 

'LIST ' TO 
* DATA ' TO 

PRINT 

PRINT 

TO 

TO 

PRINTER 

FILE 




Time-Dependent 
Data Table 
Sample Heading 

CHANGE COOT 
IN MAT CDI 

GEN 









CHANGE DEVICE FLOW 
RATE IN MAT DD 

CHANGE 
MAT DD 

OTHER 

INFO 








< — 



CHANGE 

TIME 

<h) 

CONT 

NO. 

CONT 
GEN RT 
(mcj/h) 


DEVICE 

NO. 

NEW Q 
DEVICE 

(mVh) 

MAT DD 
COLUMN 
NO. 

NEW 

VALUE 

1. No changes 

0 

0 

0 


0 

0 

0 

0 

2. Change 
contaminant 
generation rate 

24 

1 

800 


1 

-1 

-1 

-1 

3. Change 
device flow 
rate 

24 

-1 

-1 


3 

15 

-1 

-1 

4. Change cabin 
volume 

24 

-1 

-1 


1 

-1 

9 

150 

5. Change device 
flow rate and 
bed length 

24 

-1 

-1 


3 

15 

9 

H 

6. Change time 
increment 

24 

-1 

-1 


1 

-1 

11 
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Table 7. A sample time-dependent data input file. 


Change Type 

Data to be Read by the Computer Program 

Change increment 

720 

-1 

-1 

1 

-1 

11 

1 

Change flow 

720 

-1 

-1 

3 

4.8 

-1 

-1 

Change flow 

720 

-1 

-1 

4 

4.8 

»1 

-1 

Change flow 

720 

-1 

-1 

5 

4.8 

-1 

-1 

Change increment 

732 

-1 

-1 

1 

-1 

11 

6 

Change increment 

768 

-1 

-1 

1 

-1 

11 

5 

Change increment 

773 

-1 

-1 

1 

-1 

11 

23 

Change flow 

773 

-1 

-1 

3 

0 

-1 

-1 

Change flow 

773 

-1 

-1 

4 

0 

-1 

-1 

Change flow 

773 

-1 

-1 

5 

0 

-1 

-1 

Change increment 

796 

-1 

-1 

1 

-1 

11 

24 

Change increment 

844 

-1 

-1 

1 

-1 

11 

2 

Change flow 

846 

-1 

-1 

3 

4.8 

-1 

-1 

Change flow 

846 

-1 

-1 

4 

4.8 

♦1 

-1 

Change flow 

846 

-1 

-1 

5 

4.8 

-1 

-1 

Change flow 

846 

-1 

-1 

6 

281 

-1 

-1 

Change generation 

846 

5 

0.1274 

1 

-1 

-1 

-1 

Change generation 

846 

8 

3.4825 

1 

-1 

-1 

-1 

Change generation 

846 

13 

3.5398 

1 

-1 

-1 

-1 

Change generation 

846 

14 

2.8109 

1 

-1 

-1 

-1 

Change generation 

846 

22 

0.3228 

1 

-1 

-1 

-1 

Change generation 

846 

27 

0.6651 

1 

-1 

-1 

-1 

Change generation 

846 

121 

14.9589 

1 

-1 

-1 

-1 

Change generation 

846 

137 

4.2861 

1 

-1 

-1 

-1 

Change generation 

846 

149 

0.0075 

1 

-1 

-1 

-1 

Change generation 

846 

153 

39.6206 

1 

-1 

-1 

-1 

Change generation 

846 

154 

6.5515 

1 

-1 

-1 

-1 

Change generation 

846 

155 

2.1837 

1 

-1 

-1 

-1 

Change increment 

892 

-1 

-1 

1 

-1 

11 

24 


heading should not be included in the data file. If it is, the program will write an error message to the 
screen telling the user that the data file cannot be read. Each time-dependent file may contain up to 
300 lines of changes. Rules for using this data file are the following: 

General Time-Dependent Change Rule 

1. Column 1 contains the change time in hours for all changes. Any update can occur only at 
the beginning of a time increment. If a change time is not an exact multiple of the basic 
time increment, the time will be truncated to the next lowest multiple of the increment. 


Changing Contaminant Generation Rates 
1. Column 1 contains the change time in hours (h) 
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2. Column 2 contains the contaminant sequential number to be changed. The contaminant 
number must be greater than or equal to one, and less than or equal to the maximum 
number of contaminants in the contaminant input file 

3. Column 3 contains the new or changed generation rate 

4. Column 4 contains the removal device number whose contaminant generation rate is to be 
changed. The device number must be greater than or equal to 1, and less than or equal to 
the maximum number of devices in the simulation. (Device 2 may be used, but it does not 
effect the calculation since any change would be canceled out by the 100-percent removal 
efficiency provided by cabin leakage.) 

5. Column 5 is ignored and is set equal to -1 

6. Column 6 is ignored and is set equal to -1 

7. Column 7 is ignored and is set equal to -1. 

Changing Device Definition Matrix Information 

1. Column 1 contains the change time in hours (h) 

2. Column 2 is ignored and is set equal to -1 

3. Column 3 is ignored and is set equal to -1 

4. Column 4 contains the device number and must be greater than or equal to 1 and less than 
or equal to the maximum number of removal devices 

5. Column 5 contains the new device definition matrix information. This information must be 
greater than zero if a change is desired. If no input is desired, use -1 since this will 
prevent the program from reading the new information in column 7 

6. Column 6 contains the device definition matrix column number that the change is to occur 
and must be greater than or equal to zero and less than or equal to 16. Any other value in 
this column causes the program to ignore the value in column 7 

7. Column 7 contains the new device definition matrix value. Both the flow rate and any 
other device change can be made simultaneously for any device. 

A time-dependent data file is necessary for program execution even when no time dependent 
changes will be made. In this case, a single row with all the columns set equal to zero is required for 
the time-dependent data file. 


IBM and Compatible Program Version Execution 

Once the three input files have been prepared, the TCCS computer program is ready to be 
executed. Execution is initiated by typing TCCS at the DOS prompt If a very large contaminant data 
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file will be used for the simulation and contaminant plot data will be obtained during the run, the 
program should be executed by typing TCCS /R 10000 to allow for larger output records during the 
run. The number used with the “/R” option can range between 512 and 65,527 and corresponds to 
record lengths of 512 bytes to 65,527 bytes. Normal execution without the “/R” option results in the 
default record length of 1,024 bytes. 

It is important that the terminal keyboard is in the CAPS LOCK mode since the program only 
reads capitalized alphanumeric during interactive input. A carriage return is entered from the key- 
board after responding to each prompt. If inappropriate information is entered, or a file with the 
incorrect format is specified, the program will indicate that an error reading the file has occurred and 
will prompt the user for the desired information again. 

Reading Input Data 

The program begins by prompting the user for the names of the input files to be used for 
the simulation. A prompt is written to the screen asking for each file name beginning with the con- 
taminant data input file. The file name is entered by typing the file path, the filename, and its exten- 
sion. This allows the program to read the files if they are stored on the computer disk in a separate 
directory or allows the program to access the files from a floppy diskette. If the files are in the same 
directory as the program executable file, then no path designation is necessary. The removal device 
definition file is read next, followed by the time-dependent data file. 

After each file has been read successfully, the program writes a message to the screen 
indicating that the data file has been read. Also, after each file has been read, the program prompts 
the user for a decision concerning input file data output by writing a prompt to the screen requesting 
whether the data file that has just been read should be printed. The user should respond to this 
prompt with a “Y” or an “N.” The “Y” response results in a second prompt for the user to 
designate how the data file should be printed. The choices are the printer (LPT1), the computer 
screen (CON), or neither (END). This option is available for the user to view the contents of each 
data file to make sure the data are correct before the program calculation routine begins. Usually, this 
option is not necessary if the input files have been created carefully. The “N” response causes the 
program to move to the next input data prompt. 

Once data file input is completed, the program prompts the user for the mission duration in 
hours. This is the length of time that the particular mission being simulated will last. For example, a 
7-day Spacelab mission duration is 168 h and the number 168.0 should be entered at this prompt. 

Data Output Decisions 

After the data files and mission duration have been read by the program, the user is prompted 
for a decision on calculation data output. The TCCS computer program is capable of producing output 
data in several formats and writing this data to multiple output devices. The principle output data 
consist of standard formatted output data controlled by the print switches defined in the device 
definition data file and plot data output which is specified interactively by the user for each program 
execution. The program prompts the user for decisions concerning plot data output and output 
devices in the following order. 
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Concentration and Device Efficiency Plot Data Output . Concentration data and removal 
device efficiency data for each basic time increment can be output to two separate data files. The 
user is prompted by the program for a decision to output only concentration data, only efficiency data, 
both concentration and efficiency data, or neither. The user selects these options by entering “C,” 
“E,” “B,” or “N,” respectively, at the prompt. Examples of the data output for both concentration 
and efficiency plot data are shown by tables 8 and 9. 

Table 8. Example concentration plot data output. 


Initial 

Time 

(h) 

Final 

Time 

(h) 

Concentration (mg/m 3 ) 

Cont. 1 

Cont. 2 

Cont 3 

Cont. 4 

Cont. n 

1 


1.189 



0.1899.... 

0.2022E-1 



10.16 


1.464 

1.308 .... 

0.2201 



14.72 


2.655 

1.637 .... 

0.3972 


Tmrir Ha yard index Outnut . The toxic hazard index is a technique used by toxicologists to 
determine the toxicological acceptability for a mixture of chemical compounds in the atmosphere. It is 
analogous to an SMAC in some respects. The overall toxic hazard index is the summation of the 
ratios of each contaminant's atmospheric concentration to its SMAC. Ideally, this summation should 
be less than one. A more detailed definition of the toxic hazard index is found in appendix B and 
reference 12. 

The user is prompted by the program for a decision to write the toxic hazard index to the 
standard formatted output device, to the standard output device and a plot data file, or neither. Each 
option is selected by entering “Y,” “P,” or “N” at this prompt. 

.Standard Formatted Outnut . Standard formatted calculation data produced by the program can 
be output to a datafile, the printer, the screen, or none of these options. The datafile option requires 
the user to input the path, filename, and extension of a file that the program will open and write 
calculation data to during the execution. Again, the path is necessary only if the datafile is not in the 
same directory as the program executable file. The program checks the file name to determine 
whether the file already exists. If the file exists, the program indicates this on the screen and asks 
the user whether it should be overwritten. The user responds to this prompt by entering “Y” or 
“N ” The “Y” response allows overwriting the present contents of the file, and the “N” response 
causes the program to prompt the user for another file name. The printer selection is made by 
entering LPT1 at this prompt and results in formatted calculation data output to the print device for 
the computer. This option is recommended only if output is desired at the end of the program 
execution since large quantities of paper are produced. The screen option is selected by entering 
CON and results in the formatted data to be written to the screen. The data scrolls by rapidly when 
the CON option is selected, and scrolling may be stopped by holding down the control key and 
pressing the S key (CTRL S). Scrolling is restarted by typing CTRL S again. The END option 
terminates program execution. The program is designed to ask the user if any other cases will be 
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Table 9. Example removal device efficiency plot data output. 


Initial 

Final 


Efficiency for Each Contaminant 

Time 

Time 

Device 

1 1 2 

3|4|5|6|7 

8 

n 


0 

.00 

1 

.00 

2 

1 

.000 

1 

.000 

1 

.000 

0 

.00 

1 

.00 

3 

0 

.000 

0 

.000 

0 

. 000 

0 

.00 

1 

.00 

4 

1 

.000 

1 

.000 

0 

.056 

0 

.00 

1 

.00 

5 

0 

.330 

1 

.000 

0 

.950 

0 

.00 

1 

.00 

6 

0 

.000 

0 

.000 

0 

.000 

0 

.00 

1 

.00 

7 

0 

.000 

0 

.000 

0 

.000 

0 

.00 

1 

.00 

8 

0 

.000 

0 

.000 

0 

.000 

0 

.00 

1 

.00 

9 

0 

.000 

0 

.000 

0 

.000 

0 

.00 

1 

.00 

10 

0 

.000 

0 

.000 

0 

.000 

0 

.00 

1 

.00 

11 

0 

.000 

0 

.000 

0 

.000 

0 

.00 

1 

.00 

12 

0 

.000 

0 

.000 

0 

.000 

0 

.00 

1 

.00 

13 

0 

.000 

0 

.000 

0 

.000 

0 

.00 

1 

.00 

14 

0 

.000 

0 

.000 

0 

. 000 

0 

.00 

1 

.00 

15 

0 

.000 

0 

.000 

0 

. 000 

1 

.00 

12 

.00 

2 

1 

. 000 

1 

.000 

1 

.000 

1 

.00 

12 

.00 

3 

0 

.000 

0 

.000 

0 

.000 

1 , 

.00 

12 

.00 

4 

1 

.000 

1 

.000 

0 

.003 

1 , 

.00 

12 

. 00 

5 

0 

.330 

1 

.000 

0 

.950 

1 , 

.00 

12 

.00 

6 

0 

.000 

0 

.000 

0 

.000 

1 - 

.00 

12 , 

.00 

7 

0 

.000 

0 

.000 

0 

.000 

1 . 

.00 

12 , 

.00 

8 

0 

.000 

0 , 

.000 

0 

.000 

1 , 

.00 

12 , 

.00 

9 

0 . 

.000 

0 , 

.000 

0 , 

. 000 

1 . 

.00 

12 , 

.00 

10 

0 , 

.000 

0 , 

, 000 

0 , 

.000 

1 . 

.00 

12 , 

.00 

11 

0 , 

.000 

0 . 

.000 

0 , 

.000 

1 . 

00 

12 , 

.00 

12 

0 . 

,000 

0 . 

.000 

0 . 

,000 

1 . 

00 

12 . 

,00 

13 

0 . 

, 000 

0 , 

.000 

0 . 

,000 

1 . 

00 

12 . 

,00 

14 

0 . 

,000 

0 . 

,000 

0 . 

, 000 

1 . 

00 

12 . 

,00 

15 

0 . 

,000 

0 . 

000 

0 . 

000 

12 . 

00 

24 . 

,00 

2 

1 . 

,000 

1 . 

000 

1 . 

000 

12 . 

00 

24 . 

00 

3 

0 . 

000 

0 . 

000 

0 . 

000 

12 . 

00 

24 . 

00 

4 

1 . 

000 

1 . 

000 

0 . 

002 

12 . 

00 

24 . 

00 

5 

0 . 

330 

1 . 

000 

0 . 

950 

12 . 

00 

24 . 

00 

6 

0 . 

000 

0 . 

000 

0 . 

000 

12 . 

00 

24 . 

00 

7 

0 . 

000 

0 . 

000 

0 . 

000 

12 . 

00 

24 . 

00 

8 

0 . 

000 

0 . 

000 

0 . 

000 

12 . 

00 

24 . 

00 

9 

0 . 

000 

0 . 

000 

0 . 

000 

12 . 

00 

24 . 

00 

10 

0 . 

000 

0 . 

000 

0 . 

000 

12 . 

00 

24 . 

00 

11 

0 . 

000 

0 . 

000 

0 . 

000 

12 . 

00 

24 . 

00 

12 

0 . 

000 

0 . 

000 

0 . 

000 

12 . 

00 

24 . 

00 

13 

0 . 

000 

0 . 

000 

0 . 

000 

12 . 

00 

24 . 

00 

14 

0 . 

000 

0 . 

000 

0 . 

000 

12 . 

00 

24 . 

00 

15 

0 . 

000 

0 . 

000 

0 . 

000 


1 

. 000 

1 

.000 

1 

.000 

1 

. 000 

1 

.000 

1 

.000 

0 

.021 

0 

.125 

0 

.116 

1 

.000 

0 

.000 

0 

.000 

1 

.000 

1 

.000 

1 

.000 

1 

. 000 

0 

.000 

0 

.000 

1 

.000 

1 

.000 

1 

.000 

1 

.000 

1 

.000 

1 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

. 000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

.000 

0 

. 000 

0 

.000 

0 

.000 

1 

.000 

1 

.000 

1 

.000 

1 

.000 

1 

.000 

1 

.000 

0 

.021 

0 

.125 

0 

.116 

1 

.000 

0 

.000 

0 

.000 

1 

.000 

1 

.000 

1 

.000 
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run before terminating execution. The END option causes this prompt to be written to the screen, 
and the user responds by entering “Y” or “N.” The “Y” response reinitializes the program, and the 
user is prompted for new input data. The “N” response terminates execution completely. 

WARNING: Be careful to specify LPT1, CON, or END when making data output decisions to send 
data to the printer, the screen, or to reset the program. Any other response will cause the data to be 
written to a file. 

Plot Data Fite Designation . After the output selections have been made, the program 
prompts the user for file names for each of the plot data files. A separate file is created for 
concentration plot data, device removal efficiency plot data, and toxic hazard index plot data. Prompts 
for each file name are written to the screen only if the user has chosen the options specifying this 
data for the particular program execution run. As with the standard output device, the user responds 
to this prompt by entering the path, filename, and extension. The path is not necessary if the file is in 
the same directory as the program executable file. The program checks to see if the file already 
exists. If this file exists, the program writes a prompt to the screen asking the user if the file should 
be overwritten. The user must respond to this prompt by entering a “Y” or “N.” The “Y” response 
opens the file and permits overwriting, while the “N” response causes the program to prompt the 
user for a new file name. 

Calculation Routine Execution 

After completing the input and output designations, the program begins the calculation rou- 
tine. During this routine, information will be written to the computer screen depending on the output 
selections made. Standard formatted output for each time increment will be written to the screen if 
print switch 8 in the device definition data file is set to 1 and the CON option for output has been 
selected. However, if print switch 8 is set to 1 and the LPT1 or file option has been selected, only the 
increment number and the increment starting and ending times will be written to the screen. Simi- 
larly, if print switch 8 is set to 0 and any standard output device selection has been made, the pro- 
gram will write only the increment number and the increment starting and ending times to the screen 
during the calculation routine. At the end of the calculation routine, the CON output option instructs 
the program to write the final standard formatted output data to the screen, the LPT1 option sends 
this data to the printer, and the file option sends the data to the designated file. 

During execution, the program may also write error messages to the screen. Most error 
messages relate to output devices and cause the data to not be written to the specified data file. 

The program indicates the location of the error in the execution and will continue to execute unless 
the disk capacity has been exceeded. In this case, the execution terminates. 

A second type of warning is written to the screen when the calculation for a contaminant does 
not converge. This warning indicates a serious problem where the concentration and efficiency calcu- 
lations for a contaminant did not converge to within the specified convergence error within 20 itera- 
tions using the basic time increment and 20 iterations using one-tenth the basic time increment. The 
program will continue to execute; however, the results for that contaminant will be incorrect. This 
problem is corrected by either using a smaller basic time increment or increasing the convergence 
error specified in the device definition data file. 
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After the calculation routine is complete, the program writes a prompt to the screen asking 
the user if more cases will be run. The user responds to this prompt by entering “Y” or “N.” The 
“Y” response causes the program to loop to the data entry routine to allow the user to specify input 
files for the next case. The “N” response terminates the program execution, and the DOS prompt 
will appear on the screen. 


Output Data File Manipulation 

The program is capable of producing up to four output data files during a single execution. 
These files contain the standard formatted output, concentration plot data, device removal efficiency 
plot data, and toxic hazard index plot data. All of these files are in ASCII format and can be loaded 
into commercially available word processing and spreadsheet programs for editing and analysis. 
Specific guidelines for manipulating these files are described. 

Standard Fo rmatted Output 

The data file containing the standard formatteu output may be loaded into a word processing 
program to be included in a report or memorandum. The format may be edited in the program to suit 
the user's needs. The font size may have to be reduced to fit on 8.5 by 1 1 inch paper in the portrait 
orientation. The landscape orientation is recommended. An example of the standard formatted output 
is shown by figure 5. 

Concentration Plot Data 

Concentration plot data consists of the beginning and ending time for each time increment and 
the concentration for each contaminant in the simulation at the end of the time increment. An 
example of concentration plot data output is shown by table 8. The data are arranged in columns 
according to the following: 

1. The first column contains the increment beginning time in hours (h) 

2. The second column contains the increment ending time in hours (h) 

3. All columns beyond the first two contain the sequential (contaminant 1 through n) 
contaminant concentration for each contaminant in milligrams per cubic meter (mg/m 3 ). 

These data can be loaded into a spreadsheet program (Lotus 123 is recommended) and the 
appropriate ranges selected for preparing plots of concentration as a function of time. 

Efficiency Plot Data 

Removal device efficiency data consist of the beginning and ending time for each increment, 
the removal device number (2 through 15), and the decimal of each device for each contaminant for 
that time increment. This data file is arranged as a square matrix in which each time increment has 
14 rows as shown by table 9. Each row corresponds to a removal device and contains columns which 
include the following: 

1. The first column contains the increment beginning time in hours (h) 
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Figure 5. Example standard formatted data output 
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Figure 5. Example standard formatted data output (continued). 



2. The second column contains the increment ending time in hours (h) 

3. The third column contains the removal device number (dimensionless) 

4. All columns beyond the first three contain the sequential contaminant removal efficiency 
for that device for each individual contaminant (contaminant 1 through n). 

It must be noted that the cabin, designated as device number 1, is not included since cabin removal 
efficiency is not relevant. These data can be loaded into a spreadsheet program (Lotus 123 is 
recommended) and then sorted by the removal device number column and the time increment ending 
time column to obtain a time-dependent removal device efficiency profile for each removal device. 
The appropriate data ranges may then be selected for producing data plots. 

Toxic Hazard Index Data 

Toxic hazard index data consists of the beginning time, ending time, and overall toxic hazard 
index calculation for each time increment. This data as shown by table 10 is arranged in three 
columns which include the following: 

1. The first column contains the increment beginning time in hours (h) 

2. The second column contains the increment ending time in hours (h) 

3. The third column contains the overall toxic hazard index (dimensionless). 

These data can be loaded into a spreadsheet program (Lotus 123 is recommended) and the second 
and third columns selected as the plot data ranges. 


Table 10. Example toxic hazard index plot data output. 


Initial Time 

Final Time 

Hazard Index 

0.00 

1.00 

0.01 

1.00 

12.00 

0.07 

12.00 

24.00 

0.11 


Macintosh Program Version Execution 

The Macintosh program version execution is much more simple than the IBM and compatible 
program version. Execution is started by positioning the cursor over the TCCS computer program 
application icon, shown in figure 6, and double clicking with the mouse. The program displays the 
program banner which contains the program name, version number, and version date and then 
prompts for the input data. At this prompt, a standard Macintosh file location window is displayed, 
as shown in figure 7, and the appropriate file is selected by highlighting the file name with the cursor 
and double clicking with the mouse on the open bar to the right. Similar windows appear for selecting 
the device definition and time-dependent data files. 
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|tccb) 

/ 55F 

TCCS 



Figure 6. Macintosh program version application icon. 



After the three input files have been located, the main user input screen appears as shown in 
figure 8. The user enters the mission duration time and selects options to write the runtime data to 
the screen, files, or by both positioning the cursor in the appropriate box and clicking with the mouse 
When the user is finished with this screen, the cursor is positioned over the “OK box and clicked 
with the mouse. If any of the data are to be sent to a file, the program prompts for the file name with 
a standard Macintosh pop-up window similar to the illustration in figure 9. 

The final step before the program begins the main calculation routine is to name the plot data 
output files for concentration and device removal efficiency data. This is accomplished with the 
standard Macintosh pop-up window shown in figure 9. 
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TCCS MODEL USER INPUT SCREEN 

PRINT CONTAMINANT INPUT DATA? 

□ TO SCREEN Q TO FILE 

PRINT DEVICE DEFINITION INPUT DATA? 

□ TO SCREEN Q TO FILE 

PRINT TIME DEPENDENT INPUT DATA? 

□ TO SCREEN □ TO FILE 

PRINT PROGRAM RUNTIME DATA? 

□ TO SCREEN □ TO FILE 

ENTER MISSION DURATION TIME (HRS): f 


Abort OK 


Figure 8. TCCS computer program user input screen. 


<3 Plot 


View 


& 


DALEE HD 


Cone Plot Data 


Figure 9. Window for naming plot data output files. 
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Program solution is initiated after designating the plot files and, upon completion, the user is 
asked by the program if another run is desired. The user responds to this prompt by typing “yes” or 
“no.” A “yes” response reinitializes the program and prompts the user for new input and output 
files. A “no” response terminates the program execution and the user may then quit the application 
or return to the Macintosh Finder. From the Finder, data plotting applications may be selected to 
analyze the program’s concentration and device efficiency data. 


DETAILED COMPUTER PROGRAM DESCRIPTION 


A detailed description of the TCCS computer program source files is provided to acquaint the 
user with the main program and each significant subroutine. Flow charts of these routines are pro- 
vided, and discussion of the theoretical basis for some routines is provided where appropriate. A 
listing of the program source files is provided in appendix A. This description is paraphrased from a 
description produced by Lockheed Missiles and Space Company, Inc., under contract NAS8-36406. 
This work served as the primary reference for this section, and all block flow diagrams were adapted 
from this document. 13 


Program Editing, Compiling, and Linking 

This program was edited, compiled, and linked using the Ryan-McFarland RM/FORTRAN® 
version 2.42 which includes the RM/FORTE® project manager. This FORTRAN compiler is 
recommended for making changes to the source files. 


Main Program 

The main program, MAIN, is a simple program with no branching and two loops. A flow 
diagram is shown in figure 10. Each subroutine required for the particular program run is called during 
each pass of the main calculation loop until the end of the simulation. 

Subroutines CAFILL and RAFILL, which write zeros into all the calculation matrices are 
called initially to initialize each calculation matrix. Next, CRIN and PRIN are called to read the 
contaminant, device definition, and time-dependent input data into matrices NN, CDI, DD, and TT. 
The input data is printed line by line, if desired, by calling subroutines CROUT2 and RROUT2. All 
initial variables such as time-increment beginning time, time-increment ending time, and the 
increment counter are zeroed. 

The precalculation setup routine, PCSET, is called next. This routine calculates the initial 
removal efficiency for each removal device, the equilibrium cabin concentration, and the final cabin 
concentration for a cabin concentration of 1x10 mg/m 3 for all contaminants. Intermediate and final 
calculation results are stored in matrices CC and DD. 

The calculation loop is now entered, and the iterative process of determining the cabin 
concentration for each contaminant at the end of a time increment is begun. Since cabin concentration 
is a function of the contaminant mass removed and the contaminant mass removed is a function of 
the cabin concentration, it is important that the same value be used in the mass balance and removal 
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Figure 10. Main program block flow diagram. 
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efficiency calculation routines. A solution is achieved by assuming an increment concentration, 
calculating an average contaminant concentration, and comparing the two concentrations. This 
procedure continues until the assumed and calculated concentrations are equal. 

Calculation for each time increment is initiated by increasing the increment counter, setting 
the increment size, and listing the increment number, starting time, and ending time to the computer 
screen. Subroutine RINCDD is called to read time-dependent data from matrix TT at this time, and 
subroutine REGEN is called to check for regeneration of any devices during the time increment and 
set the adsorbed contaminant masses and device flow rates to zero if necessary. The main 
calculation loop subroutine, MCALC, is called next to calculate the removal efficiencies, average 
calculated concentration, and final concentration for each contaminant based on the sum of the mass 
removed during the previous time increment. Subroutine SLIOH then calculates the amount of LiOH 
used during the time increment if a LiOH bed is specified in the device definition file. Next, the 
original device flow rate is restored for any device that was being regenerated during the increment. 
Subroutine DATOUT is called to print the calculated data at the end of a time increment, if 
necessary, to both the standard formatted and plot data output devices. The simulation and mission 
duration times are then compared to determine whether the mission simulation has ended. If the 
mission simulation has not ended, another pass through the calculation loop begins by setting the 
new increment beginning time and initial cabin concentration equal to the previous increment ending 
time and concentration. If the mission simulation has ended, subroutine DATOUT is called to write 
the final answers to the appropriate output devices as specified by the user. The output files are 
closed, and the program loops to the beginning to begin another run if the user wishes. If the user 
has no other runs to make, the program execution is terminated, otherwise, the calculation matrices 
are zeroed and new input data is supplied to the program for the next run. 

Brief descriptions for each major TCCS computer program subroutine are provided in the order 
that they are called by MAIN. Figure 1 1 lists the subroutines as they are called and provides a brief 
description of each subroutine’s purpose. Block flow diagrams are provided for the most significant 
subroutines. 


Calculation Loop Subroutines 

The following subroutines comprise the principal calculation framework for the TCCS 
computer program. 

Subroutine CAFILL 

The subroutine CAFILL is called by MAIN and fills the matrix NN with blanks. Matrix NN 
contains the contaminant names during the simulation run. 

Subroutine RAFILL 

The subroutine RAFILL is called by MAIN and fills the matrices CC, TT, CDI, and DD with 
zeros. Matrices CDI and CC contains contaminant input and calculation data, matrix DD contains 
device calculation data, and matrix TT contains time-dependent data. This routine is used at the 
beginning of a computer simulation to initialize these matrices in the event a previous run has been 
made. 
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SUBROUTINE LEVEL 

DESCRIPTION 

1 

2 

3 

4 

5 

MAIN 





MAIN PROGRAM 


CAFILL 




ZERO MATRIX NN 


RAFIL.L 




ZERO MATRICES CDI, CC, DD, TT 


CRIN 




INPUT DATA INTO NN AND CDI 


RRIN 




INPUT FROM FILE TO DD AND TT 


CROUT2 




PRINT DATA FROM NN AND CDI 


RROUT2 




PRINT DATA FROM DD AND TT 


PCSET 




PRECALCULATION SETUP FOR ALL CONT 



PRAFIL 



ZERO MATRIX DD COLUMNS 17-21 



CNRSUB 



CALCULATE REMOVAL EFFICIENCY 




ACHBD 


AXIAL CHARCOAL BED EFFICIENCY 




RCHBD 


RADIAL CHARCOAL BED EFFICIENCY 




ALIOH 


AXIAL LiOH BED EFFICIENCY 




COOXID 


CO OXIDIZER EFFICIENCY 




CATBNR 


CATALYTIC OXIDIZER EFFICIENCY 




CONDHX 


CONDENSATE EFFICIENCY 



MASBAL 



CONTAMINANT MATERIAL BALANCE 




CALCM 


SUM OF MASS REMOVED BY DEVICES 




LDIGEN 


LOAD GENERATION INTO DD COL 19 




PCAVCF 


CALCULATE FINAL AND AVERAGE CONC 


RINCDD 




READ INCREMENT DEPENDENT DATA 


REGEN 




CALCULATE REGERATION/CHANGEOUT 


MCALC 




MAIN CALCULATION ROUTINE 



PREDCT 



CALCULATE PREDICTED AVERAGE CONC 




PRAFIL 


ZERO MATRIX DD COLUMNS 17-21 




LODEFF 


PUT LAST INCREMENT EFFICIENCY IN DD 




MASBAL 


MASS BALANCE ROUTINE 





CALCM 

SUM OF MASS REMOVED BY DEVICES 





LDIGEN 

LOAD GENERATION INTO DD COL 19 





PCAVCF 

CALCULATE FINAL AND AVERAGE CONC 



CONVRG 



SOLVE FOR NEW REMOVAL EFFICIENCY 




PRAFIL 


ZERO MATRIX DD COLUMNS 17-21 




CNRSUB 


CALCULATE REMOVAL EFFICIENCIES 





ACHBD 

AXIAL CHARCOAL BED EFFICIENCY 





RCHBD 

RADIAL CHARCOAL BED EFFICIENCY 





ALIOH 

AXIAL LiOH BED EFFICIENCY 





COOXID 

CO OXIDIZER EFFICIENCY 





CATBNR 

CATALYTIC OXIDIZER EFFICIENCY 





CONDHX 

CONDENSATE EFFICIENCY 




MASBAL 


CONTAMINANT MATERIAL BALANCE 





CALCM 

SUM OF MASS REMOVED BY DEVICES 





LDIGEN 

LOAD GENERATION INTO DD COL 19 





PCAVCF 

CALCULATE FINAL AND AVERAGE CONC 


SLIOH 




CALCULATE LiOH USED IN INCREMENT 


DATOUT 




PRINT DATA TO THE SPECIFIED DEVICE(S) 



PRFANS 



PRINT CONCENTRATION DATA ANSWERS 




HEADGS 


PRINT DATA HEADINGS 



GROUP 



PRINT TOXIC HAZARD INDEX ANSWERS 


Figure 1 1. TCCS computer program subroutine listing and description. 



Subroutine PCSET 

The subroutine PCSET is the precalculation setup routine. PCSET gets calculations started 
by assuming an initial cabin concentration before the program enters the time calculation loop Figure 
12 shows a flow diagram of PCSET. PCSET sets the initial time increment ending time to 1/240 ot 
the basic time increment specified in the device definition input file. Subroutine PRAFIL is then 
called, and columns 17 to 21 are zeroed. These columns are used to store the results of subsequent 
calculations. CNRSUB is called to calculate each device removal efficiency for an assumed initial 
contaminant concentration of lxl0- 2O mg/m3. Contaminant removal rates and predicted, equilibrium, 
and final cabin concentrations are calculated by subroutine MASBAL. These calculated values are 
copied from matrix DD to the calculation matrix, CC, and printed out by subroutines CROUT and 
RROUT if required. 


BEGIN 


3 


SETTN = 
0.1(BINC)/24 


DO FOR ALL 
CONTAMINANTS 


ZERO MATRIX DD 
COLUMNS 17-21 


FOR C, v = IE-20 
CALCULATE EFF 
AND PUT IN DD 
COLUMN 20 

I z 

CALCULATE C av pi „. 
C S q, Cftnai. AND M rvm 



PRAFIL 




CNRSUB 


J 


MASBAL 



PUT Cjy pf*d' C B q, Cfmal 
IN CC; M r , mi AND 
REM EFF IN DD 



PRINT INFO FOR 
1 CONTAMINANT 
FROM MATRICES 
DD AND CC 





CROUT/RROUT 


Figure 12. Subroutine PCSET block flow diagram. 
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Subroutine PRAFIL 


Subroutine PRAFIL is called by PCSET and places zeros in matrix DD columns 17 through 


Subroutine CNRSUB 

The subroutine, CNRSUB, calculates the removal efficiency of each device for each contami- 
nant in the simulation during every time increment. This calculation is based on the average calcu- 
lated cabin concentration. Figure 13 shows a block flow diagram for CNRSUB. These calculations are 
conducted by device type rather than the relative positions of each device with respect to each other. 

This routine sets the cabin removal efficiency to zero and the leakage efficiency to the maxi- 
mum of 1.0. Removal efficiencies for all devices with no flow are also set to zero. The remaining 
device efficiencies are calculated by calling the subroutines ACHBD, RCHBD, ALIOH, COOXID, 
CATBNR, and CONDHX. These calculated efficiencies are stored in matrix DD. 

Subroutine MASBAI, 

Using the device efficiencies calculated by CNRSUB, MASBAL determines the mass 
removed, the calculated cabin concentration, the equilibrium cabin concentration, and final cabin 
concentration for each contaminant during a time increment. This calculation is conducted for all 
removal devices in parallel and in series. Figure 14 shows a block flow diagram for MASBAL. 

MASBAL uses the mass of contaminant removed and the net mass to the cabin to determine 
the final cabin concentration for each contaminant. The mass of the contaminant removed is defined 
as the product of the removal device flow rate, contaminant concentration, and device removal effi- 
ciency. The net mass of contaminant to the cabin is defined as the difference between the mass gen- 
erated and mass removed. At steady state or equilibrium, the mass removed equals the mass gen- 
erated. The mass generated is the sum of all generation sources which include the cabin generation 
rate and the generation rate in each device. The steady-state of equilibrium concentration is defined 
according to the following equation: 

Css = ("l net -to-cabinV(nrXO) , (2) 

where tftnet-to -cabin is the mass of contaminant, T\ r is the overall removal efficiency for all devices, and 
Q is the atmospheric flow rate through the removal devices. 

MASBAL is composed of two parts to determine the steady-state concentration. The first 
part of MASBAL determines the product of the overall efficiency and flow rate by setting the device 
generation rates to zero, assuming an arbitrary value for average cabin concentration (100 mg/m 3 ) 
and cabin generation rate (50 mg/h), and calling CALCM to determine the sum of mass removed for 
all the removal devices. The second part of MASBAL evaluates the net mass to the cabin by setting 
the average cabin concentration equal to zero, restoring the contaminant and device generation rates 
to the values specified in the contaminant data matrix, and calculating the mass removed using 
CALCM. The m ne t-to-cabin equals the difference between the masses generated in the cabin 
and removal devices and the mass removed. From these values, C ss is calculated according to 
equation (2). After calculating the steady state concentration, the final and average cabin 
concentrations are calculated by calling PCAVCF and CALCM is called to calculate the mass 
removed by the cabin and each device using the average calculated cabin concentration. 
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EVALUATE 
SUM Q{EFF r net to cabin) 


SET C av cabin - 1 00 
DD{1,17) & DD(1.18) 
SET Mgan cabin == 50 
DD(1 .19) 

SET Mg en device = 0 
DD(2-15,19) 
BEFORE ENTERING 
SUBROUTINE 


IFCvo, = 0, THEN Cfjn = 1 E10 
ELSE 

Cfinal “ Qnftlal + SUM M^fTN-TNIJ/VOL 
C av =(C, + C,)/2 

Cgq = 1 E10 



CALCULATE 
Cjn DD(J,17) 
C out DD{J,18) 
M r . m DD(J,21) 


CALCM 


CALCULATE C„ 


C eq = SUM M neltocabln /(SUM Q(EFF rn ,)) 


GET SUM M r . m 
DD(2— 1 5,21 ) 
FOR ALL DEVICES 


SUM Q(EFF rem ) 
SUM M rem /C 4v , ioo 


LOAD INTERNAL 
M^n FOR DEVICE + 
CABIN FROM MATRIX 
CDI INTO MATRIX 
DD COLUMN 19 


LDIGEN 


CALCULATE ^ 
C'mai AND C avca j c 

CALCULATE M r . m 
IN DEVICES + 

CABIN AT 

Cav calc 

USING C.vouc 

GET Mr»m for cabin + dtvlcas 

CALCM PUTS IN MATRIX 
DD COLUMN 21 


SET C c .K|n — 0 


EVALUATE 
SUM M n , uocac ,i n 


CALCM 


CALCULATE 
Cm DD(J,17) 
Cou, DD(J,18) 
M nm DD(J,21) 


CALCM 


RETURN 


SUM M„, t )0 => 

SUM M^n (DD COLUMN 19) 
- SUM M™ (DD(2-1S,21)) 
CALCM PUTS IN DD(1.21) 


SUM N 

C)(EFF r ) < IE-10^''^^ 


Figure 14. Subroutine MASBAL block flow diagram. 




Subroutine CALCM 


The removal device inlet and outlet concentrations and the total mass removed by the cabin 
and the specified removal devices is calculated by CALCM by using the removal efficiencies, gen- 
eration rates, and average cabin concentration. This calculation is sequential from one device to 
another and uses the outlet concentration of an upstream device as the inlet concentration for a 
downstream device. This calculation requires the device definition input data to be arranged to allow 
calculations for all upstream devices to be completed before calculations for the downstream devices. 
Figure 15 shows a block flow diagram for CALCM. 

The subroutine sets the cabin and leakage device inlet and outlet concentrations equal to the 
average cabin concentration. All other devices are tested for zero flow. Devices with zero flow have 
their inlet concentration, outlet concentration, and mass removed set equal to zero. Upstream 
devices for each removal device are identified. If the upstream device type is 1 or 2, the inlet con- 
centration is set equal to the average cabin concentration plus any internal device generation rate 
divided by the device flow rate. Upstream device types other than 1 or 2 cause the device inlet con- 
centration to be based on the flow rates and outlet concentrations of all the upstream devices. 

Outlet concentration and the mass removed by the devices are calculated according to the 
following equations: 


Cout = C m (l-7] r ) (3) 

"Irem = Cia(Q)(ri r ) . (4) 

The inlet concentration for a device with an upstream device is set equal to the outlet 
concentration for the upstream device. A device with multiple upstream devices requires the mixing 
of streams with varying concentrations to be considered. For example, the inlet concentration for a 
device with three upstream devices must be calculated according to the following equation: 

C 4 = (CiQi+CiQ^+Cs&VQA ■ (5) 

The sum of the mass removed and mass generated is calculated by adding the masses 
removed and masses generated by all the devices. The difference between the sum of the mass 
generated and the sum of the mass removed gives the mass removed by the cabin. 

Subroutine LDIGEN 

Subroutine LDIGEN is called by MASBAL to load the generation rates from matrix CDI 
column 1 and columns 10 through 22 into matrix DD column 19. 

Subroutine PCAVCF 

Subroutine PCAVCF is called by MASBAL to calculate the increment final and average cabin 
concentrations for each contaminant. 
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BEGIN 

znri 


INPUT C av cabin 

Z i 


LOAD DEV 1 CABIN 
Cjn = C a v cabin DD(1,17) 
Cout = C av cabin DD(1 , 1 8) 


M 


rem ' 


= 0 DD(1 ,21) 

I 

LOAD DEV 2 LEAKAGE 
Cjn = C av leak DD(2, 1 7) 
C 0 ut = C a v leak D D (2 , 1 8) 
M rem = 0DD(2,21) 

E 


LOOP FOR EACH 
DEVICE 3 TO 15 


C in = 0 DD(J,17) 
— 0 DD(J,18) 



! C a v in “ C av cabin 
Moen/C 

DD(J, 17/1 8/1 9/2) 


02 = Q re f2 
DD(DD(J f 5).2) 
C 2 = C r8 f 2 
DD(DD(J,5),18) 


Q 3 “ Or«f3 
DD(DD(J.6),2) 
C3 = C ref3 
DD(DD(J,6),18) 




C 0 ut=C in (1-EFF r ) 



DD(J, 18/1 7/20) 


UPSTREAM 0 > 

1 

X. EQUAL 0 

M rem = C in Q(EFF r ) 



DD(J,21/1 7/2/20) 



X 





Cav in = 

i 


((C 1 Q 1 + C 2 Q 2 + C 3 Q 3 )/ 

REPEAT FOR 



(Q 1 + Q 2 +Q 3 )) 

NEXT DEVICE 



+ Mg 0n clev/Qdev 


'rem 


LOOP FOR DEVICE 2-15 
CALCULATE SUM M r 
DD(J,21) 

i 


LOOP FOR DEVICE 1-15 
CALCULATE SUM M f 
DD(J,19) 


'■gen 


C| n = 0 DD(J,17) 
Cout=0 DD(J,18) 
M rem = 0DD(J,21) 


SUM M rem cabin — SUM Mg e n 
cabin“SUM M rem dev 2-15 
DD(1 ,21) 


PRINT WARNING 


RETURN 




Figure 15. Subroutine CALCM block flow diagram. 
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Subroutin e RINCDD 

Subroutine RINCDD is used at the beginning of each time increment 
the time-dependent data. A flow diagram of RINCDD ts shown by figure 16. Thts 
the time-dependent data to determine whether any changes occur dunng the cunent time mcrement. 
Variables in matrix TT are identified. If a contaminant generation rate is indicated, the new rate s 
nlaced in tile Calculation matrix, CDI. Likewise, if a change in removal device flow ram or any other 
device change is indicated, the new information is placed in the appropriate device definition ma , 

DD, location. 

Subroutin e REGEN 

Figure 17 shows a block flow diagram for subroutine REGEN. This subroutine 
whether any charcoal or LiOH beds will be regenerated dunng the current time increment. If reg 
eration occurs the mass of contaminants stored in the beds is set equal to zero. Simi ar y, 
r^enerado^duration lasts for the entire time increment, the device flow rate is set equal to zero. 

The first check conducted by the subroutine is for device type. Only charcoal and LiOH beds 
may be regenerated Only regeneration cases which begin at the time increment beginning or regen- 
eration cafeTwhich last for o'ue or more compleie time increments are tier Data concerning the 

regeneration interval, duration, and first regeneration time are obmtned J burned m c^ur 
I iOH bed regeneration the duration is set equal to zero since bed changeout is assumed to occur 
auickly The Initial time, regeneration time, and regeneration duration are then checked to determi 
Whether Tey I exact multiples of the basic time increment. If they are not, they are rounded to the 
next lowest multiple of the time increment and a warning is written to the screen. 

The next checks conducted by the routine determine whether regeneration occurs at the 
beginning 0 r a time increment and whether the regeneration lasts for the entire increment. Regen- 
eration for the entire increment causes the program to deactivate this 
setting the device flow rate equal to zero. Regeneration at the eginni g 

sum of the mass removed by that device to be set equal to zero. For an LiOH bed, the total mass o 
LiOH used is also set equal to zero. 

.Subrouti ne MCALC 

Calculation of the removal efficiency, mass removed, and calculated, equitibnum and final 
rahin concentration for each contaminant and each removal device is controlled by MCALC. These 
calculations are based on the cumulative mass removed for each contaminant during the previous 
time increment. Figure 18 shows a block flow diagram for MCALC. 

MCALC calls the subroutine PREDCT to calculate the average predicted cabin concentration 

based o^he removal e"y and the cumulative mass of --"S” 
time increment and the generation rate dunng the present time increment. The ave g p 

55 ^ 

k less than the convergence error specified in the device definition data file, matnx DD. this ; recai 
ulafioaandcompSnconfinues for 20 iterations with the full time increment or un* MtetUBmee 
is less than the convergence error. If the convergence error is still exceeded after 20 iterations, 
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BEGIN 


UNI = 0 


BEGIN LOOP 
K = 1 TO LIN1 


■ CHANGE 
TIME > -TNI <TN 


'XONT Nu"" 
>0 < -UN 
TT(k 2) 


CHANGE CONTAMINANT GENERATION RATE 


>EV NO. 1 = r 


DEV NC 
> -3 < -UN 



CDlicont no.. 7 + dev no.) 
■j?*n rate 

t »|k,3) 



DEV NO 
> ■ 1:< «LIN2 


CHANGE DEVICE FLOW RATE 


Qflev 

> OR - 0 


Xj DD(I,2) = Q dev 
\ TT(k,5) 


MAT DD 

COL NO >»1;<«ie 


NEW VALUE 
> OR « 0 


CHANGE MATRIX DD VALUES 


DD(l.j) = TT(k,7) 


END LOOP 


RETURN 


Figure 16 . Subroutine RINCDD block flow diagram. 








Figure 17. Subroutine REGEN block flow diagram. 
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BEGIN 
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block flow diagram. 








another loop with a maximum of 20 iterations is entered which uses one-twentieth the basic time 
increment for the calculation. This loop ends as soon as the difference between the predicted and 
calculated values is less than the convergence error or 20 iterations have been completed, u coav 
gence is not attained after this loop, the program writes a warning to the screen indicating that the 
calculation for the contaminant did not converge. The loop using the one-twentieth time increment is 
used only for a contaminant that does not converge during the first 20 iterations. This is more 
efficient than reducing the time increment for all the contaminant calculations. 

Subroutine PREDCT 

MCALC calls the subroutine PREDCT to calculate the average predicted cabin concentration 
for each contaminant during each time increment. This calculation is based on the removal efficiency 
and sum of contaminant mass removed in the previous increment and the generation rate during t e 
present increment. Figure 19 shows a block flow diagram for PREDCT. 



Figure 19. Subroutine PREDCT block flow diagram. 

PREDCT calls the subroutine PRAFIL to zero the part of matrix DD required for storing the 
calculation results. Data from the previous time increment is obtained by LODEFF and MAS is 
called to calculate the efficiency and concentration. 


Subroutine LODEFF 

Subroutine LODEFF loads the efficiency calculated in the preceding increment from matrix 
CC to matrix DD. 
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Subroutine CONVRG 


CONVRG is the main convergence loop subroutine. This subroutine calculates the average 
cabin concentration and compares it with the predicted cabin concentration for each contaminant 
during every time increment. Figure 20 shows a block flow diagram for CONVRG. 

CNRSUB is called by CONVRG to calculate the removal efficiency for each device using the 
predicted cabin concentration. Based on this removal efficiency, MASBAL calculates the average, 
final, and equilibrium cabin concentrations and the mass of contaminant removed by each device. The 
predicted and calculated cabin concentrations are compared by calculating the absolute value of the 
difference of the predicted and calculated concentration divided by the predicted concentration and 
comparing that value to the convergence error. If the absolute value of the comparison is less than 
the convergence error, convergence has been achieved and the iteration stops for that contaminant. If 
convergence has not been achieve, a new cabin concentration is calculated using a bisection 
technique after the first iteration and a Newton-Raphson technique for each additional increment. 

The loop counter value passed back to MCALC which determines whether convergence has been 
reached within 20 iterations. 

Subroutine SLIOH 

SLIOH is the subroutine which calculates the cumulative mass of LiOH used during the 
simulation run. This calculation is cumulative since the mass of LiOH consumed during the present 
increment is added to the mass consumed in all the previous increments. 

Contaminant Removal Device Calculation Subroutines 

The contaminant removal device subroutines are supported by a substantial amount of 
theoretical and experimental data. A brief description of each subroutine is provided in addition to a 
discussion of the supporting theory and experimental data. 

Subroutine ACHBD 

Subroutine ACHBD calculates the removal device efficiency for an axial flow charcoal bed. 

This routine simulates the physical adsorption of contaminants onto the surface of the charcoal. 
Specially treated charcoals are also considered which include chemical reaction between the surface 
treatment and the contaminant in addition to adsorption. 

A charcoal bed is composed of two zones during the adsorption process. These zones are 
designated as the saturated zone and the adsorption zone. All contaminant removal takes place in 
the adsorption zone. The saturated zone provides no net removal since it is in equilibrium with the 
vapor phase contaminant composition. Figure 21 illustrates the zones simulated by the program 
graphically. Physical adsorption is an equilibrium process which depends on variables such as the 
contaminant vapor pressure, inlet concentration, molar volume, and the cabin temperature. Studies 
conducted by Robell investigated the thermodynamics of adsorption dynamics and developed a 
coirelation between the physical properties of a contaminant and the charcoal saturation capacity. 

This correlation is based on the Polanyi potential theory and the Gibbs equation. From this study, a 
correlation factor, called the adsorption potential factor was developed. This factor is defined 
according to the following equation: 
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LEGEND 

tj = Bed profile at the time when a bed segment reaches steady state 

t b = Bed profile at the service time when the bed outlet concentratio equals C b 

I = Active adsorption zone length 

Cj = Bed inlet concentration 

C b = Bed penetration concentration 


Figure 21. Charcoal saturation and adsorption zone distribution. 


A = (W w )logio(M> c ) , (6) 

where T is the cabin temperature in kelvin, V m is the contaminant liquid molar volume in cm^ /gram- 
mole, p v is the contaminant vapor pressure at the cabin temperature expressed in concentration units 
of mg/m 3 , and p c is the cabin contaminant partial pressure expressed in concentration units of mg/m 3 . 
This factor was plotted as a function of experimentally determined charcoal saturation capacities to 
obtain the plot shown by figure 22. 14 The plot in this figure was constructed for Bamebey-Sutcliffe 
type BD granular activated charcoal. This correlation is not only sensitive to charcoal impregnation 
and contaminant solubility, but also to relative humidity as shown by figure 23. 15 Additional 
information may be obtained on charcoal capacity and performance from references 16 and 17. Based 
on potential plots, empirical equations are obtained which relate the potential factor to the charcoal 
saturation capacity. The equations used in this program are the following: 
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Figure 22. Potential plot for type BD granular activated charcoal. 




SATURATION CAPACITY - 9 - (cc LIQ/GM CHARCOAL) 



Figure 23. Potential plot showing relative humidity effects. 




q = 2. 2947 r 0:26492 A 


(7) 


g = 2.80289^-°- 28842A 
q = 3.8636e-°- 32307A 


( 8 ) 

(9) 


where „ is the charcoal saturation capacity in cm 3 of liquid contaminant per gram of charcoal and A is 
the adsorption potential factor in kelvin-gmole/cm 3 . As new information concerning adsorption 
caoacitvTs obtained, these equations can be modified accordingly. In addition this technique can be 
applied^ to other adsorbent materials to simulate other packing materials besides charcoa . 

The adsorption zone length for 90-percent removal is determined from experimental data obtained 
bv Olcott at? 0 0066 m/s (1.3 ft/min) flow rate. 18 These data are plotted in figure 24 and the 
computer program uses the following equation to calculate the adsorption zone length. 


Lads ~ (L a( js at 1.3 ft/min)( 


( 10 ) 
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The adsorption zone length study conducted by Olcott shows the adsorption zone length increases 
with velocity to the 0.8 power as indicated in the equation. The saturated zone length is based on the 
charcoal capacity at the prevailing cabin conditions and the amount of contaminant already adsorbed. 
For a given contaminant mass retained in the bed, the saturation zone length equals the mass of 
contaminant adsorbed divided by the saturation capacity, q. The total bed length minus the saturated 
zone length equals the adsorption zone length. The adsorption zone length is the length of the bed 
actually available for contaminant removal. The program calculates the saturation zone length which 

is calculated based on the bed geometry, the amount of contaminant removed by the bed, and the 
saturation capacity, q. J 


Adsorption of multiple contaminants by charcoal involves some interaction between the 
contaminants. This interaction, called blockage or coexistence, reduces the capacity of the charcoal to 
hold other contaminants. Although the theory for coexistence is complex, experimental data indicate 
that an additional 20 percent can be added to the saturation zone when the calculation for the 
adsorption zone is conducted. 


R gagt i on W i th Specially Treated Charcoals . Some contaminants are not readily removed by 
granular activated charcoal but can be removed by charcoal which has been specially treated with 
chemicals that react with the contaminant after adsorption onto the charcoal surface. Two commonly 
used treated charcoals target ammonia and formaldehyde. 


A mmonia Remova l- Ammonia is removed by treating granular activated charcoal with 
phosphoric acid. Usually, phosphoric acid loading is two millimoles per gram of charcoal. This results 

mllEu 1 ' ? f ?' 61 grai ? s £~ f charcoal P er 8 ram of ammonia to be removed if the reaction goes to 
completion. The bed removal efficiency is typically 90 to 99 percent per pass for a fresh bed. As the 

££ n r C,d 1S de ?n e n ted ’ ^ efflcienc y drops* eventually reaching zero. This routine assumes the 

?n n™ , f fT C l 1 100 P 61 ? 01 lf the M is less toan 80 percent utilized. The efficiency for the last 
0 percent of the bed is calculated using the following sine relationship: 


T\r - Sin(m c harcoal ~ W treated charcoal used)/(0.2)/ncharcoal 

where m C harcoai is the mass of charcoal in the bed and charcoal used is the mass of treated 

charcoal used. 


( 11 ) 


Forma l dehyde Rsmov &l. Formaldehyde is removed most efficiently by chromate impregnated 
charcoal. Manufacturer s data indicate that this charcoal can chemisorb a total amount of 
formaldehyde equivalent to 5 percent of its weight.^ Testing at Lockheed Missiles and Space 

J nC " S !iT e !! ^ matenal ’ S efficienc y t0 drop linearly from 100 percent to 90 percent for an 
amount of formaldehyde chemisorbed from zero to 0.12 percent of the bed weight. Also, if the bed 
residence time is less than 0.25 s, the removal efficiency drops linearly. 

Subroutine RCHBD 

„ The subroutine, RCHBD, uses the same logic as ACHBD for simulating charcoal adsorption. 
However, this routine accommodates the geometry of a radial flow charcoal bed. 
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Subroutine ALIOH 

ALIOH simulates removal of acidic contaminants by granular lithium hydroxide and lithium 
carbonate. The amount of lithium hydroxide consumed per weight of contaminant is calculated from 
the reaction stoichiometry. This number is input with the contaminant data. Reaction of lithium 
hydroxide with carbon dioxide to produce lithium carbonate has no noticeable effect o" *® contami- 
nant removal The removal efficiency for this device is 100 percent unless the bed is less than 190 
cm thick or more than 80 percent utilized. The drop in efficiency as the bed is utilized is approximated 

by the following sine relationship: 

Tj r = Sin(mLiOH - tnLiOH used)/ (0.2)mLiOH ^ ^ 

where mi ,oh is the mass of the lithium hydroxide bed and m L iOH used is the mass of lithium 
hydroxide utilized. Efficiency for a bed less than 1.905 cm thick decreases linearly with thickness. 

Subroutine CQQXIQ 

Ambient temperature catalytic oxidation of carbon monoxide and hydrogen is simulated by the 
COOXID subroutine. This routine simulates ambient temperature catalytic oxidation using a 
eranular activated charcoal with two weight percent platinum loading. This simulation is effective 
only for carbon monoxide and hydrogen. Efficiency remains constant atl(K) percent P^ r P^“ nless 
the residence time falls below 0.2 s. For residence times below 0.2 s, the efficiency decreases 

linearly according to figure 25. 20 
Subroutine CATBNR 

The CATBNR subroutine simulates the destruction of hydrogen, carbon monoxide, methane, 
and other low molecular weight organic contaminants into carbon dioxide and water vapor using hig 
^m^atme^a^y^o^i^tion. The degree of oxidation in the oxidizer must be input by the user in 

dm contaminant data input file. Typically, oxidai ion efficiency is 

performance testing. On average, operating the oxidizer at 400 C (750 F) provides removal 
efficiency of 100 percent for most contaminants. 

Subroutine CONDHX 

The subroutine, CONDHX, simulates the removal of contaminants by absorption i uuc ' 
condensate in a condensing heat exchanger. Some contaminants are remtnied by thus route by ^not 
onlv absolution but also chemical reaction in the condensate. Ammonia is treated in this manner 
stoe ttZS^s in water and reacts with dissolved carbon dioxide.*' All other contaminant 

removal is simulated using Henry's Law. Using Henry's Law is 1 the 
since their concentrations in the atmosphere approach infinite dilution Heniy s Law correlates 
concenuation of a contaminant in the atmosphere to its concentration m the liqmd phase. The 
conation coefficient is the Henry's Law Constant, H. which has units of atmospheres/mole fracuon. 
Cdon (IsTstows me Henry vLaw relationship in which p c is the contaminant partial pressure in 
H is the Henry's Law constant in atmospheres per mole fracuon, and * is the liquid 

phase mole fraction. 


p c = Hx 


(13) 
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PERCENT CO CONVERSION 


0.5% Pd 0.5% Pt 
2% PtC 0.5% Pt 0.5% Pd 


O CALGON 2 


0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 

BED CONTACT TIME (SEC) 

NOTES: 

1. ALL NOBLE METALS ON ALUMINA SUBSTRATE 
UNLESS OTHERWISE STATED 

2. 2% PtC = 2% PLATINUM ON CARBON 

3. 2% PdC = 2% PALLADIUM ON CARBON 


Figure 25. Noble metal CO catalyst performance. 




mole fraction shown by: 


jc = yl(C/A+H/P) 


(14) 


SsSSSESs* 

removed to the mass of contaminant entering. 



Figure 26. Absorption of contaminants by humidity condensate. 

Ammonia removal is treated separately since it reacts chemically with dissolved carbon 

»pargtag usedS * 8 

ammonia concentration. 


m a = 189.6CC 0 - 535 . 


(15) 
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Ammonia Concentration (ppmv) 

Figure 27. Ammonia solubility in water at varying carbon dioxide concentration. 


In this equation, m a is the mass of ammonia in milligrams per kilogram of condensate and C c is heat 
exchanger inlet ammonia concentration in mg/m 3 . This equation is used to determine the ammonia 
removal efficiency from the mass of ammonia entering and leaving the condensing heat exchanger 


Data Input and Output Subroutines 

The following subroutines regulate the data input and output for each computer simulation 
ran. These subroutines have been designed to allow maximum flexibility for calculated data output to 
facilitate data analysis are reporting. F 

Subroutine CRIN 


Subroutine CRIN is called by MAIN and reads contaminant input data into the contaminant 
name matrix, NN, and the main calculation matrix, CDI. 


Subroutine RRTN 


Subroutine RRIN is called by MAIN and reads device definition data and 
data into matrices DD and TT, respectively. 


time-dependent 


Subroutine CROITT? 


CROUT2 is called by MAIN and controls output of the contaminant input data to the printer 
or com P uler lemmaJ screen. One row at a time without headings is written to these output devices 
for the user to review before entering the calculation loop. 
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Subroutine RROUT2 

Subroutine RROUT2 is called by MAIN and controls output of the device definition data and 
time-dependent data to the printer or computer terminal screen. One row at a time without headings 
is written to these output devices for the user to review before entering the calculation loop. 

Subroutine CROUT 

CROUT is called by MAIN and regulates output of matrix CC data during each time incre- 
ment for diagnostic purposes. This subroutine is called only when print switch 5 is set equal to 1. 

Subroutine RROUT 

Subroutine RROUT is called by MAIN and regulates output of matrix DD for diagnostic 
purposes. This subroutine is called only when print switch 5 is set equal to 1. 

Subroutine DATOUT 

DATOUT is called by MAIN and serves as the master output regulation routine. Routines 
contained within PRFANS are called from DATOUT according to the print switch designations made 
by the user. 

Subroutine GROUP 

Subroutine GROUP is called by DATOUT and calculates the toxic hazard index. This subroutine 
also regulates the output for the toxic hazard index for both the standard formatted output and the 
plot data output. 

Subroutine PRFANS 

PRFANS contains several subroutines that are called by DATOUT which regulate the output for 
contaminant concentration data, sum of contaminant masses removed data, and removal device 
efficiency data. This subroutine regulates output for both the standard formatted output and the plot 
data output. 

Subroutine HEADGS 

Subroutines within HEADGS are called by PRFANS subroutines to regulate standard formatted 
data output headings. Headings are provided for contaminant concentration data, contaminant 
removal rate data, sum of contaminant masses removed data, and removal device efficiency data. 
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APPENDIX A 


TRACE CONTAMINANT CONTROL SIMULATION (TCCS) 
COMPUTER PROGRAM 
FORTRAN CODE LISTING 


PRE66DiNG PAGE BLANK NOT FILMED 


WTFNTJHK f r * 



This appendix contains listings for each major subroutine and the main TCCS computer 
program. The main program is listed first followed by listings of each subroutine. The subroutines 
listings are arranged in alphabetical order by name to provide easy reference. 

RM/FORTRAN Compiler (V2.42) 

source File: C:\RMFORT\TCC\MAIN.FO Options: /C 60 /L /BY 05/21/92 12:57:09 


1 C 

2 

3 C 

4 C 

5 C 

6 C 

7 C 

8 C 

9 C 

10 C 

11 C 

12 C 

13 C 

14 C 

15 C 

16 C 

17 C 

18 C 

19 C 

20 C 

21 C 

22 C 

23 C 

24 

25 C 

26 C 

27 C 

28 C 

29 C 

30 C 

31 C 

32 C 

33 C 

34 C 

35 C 

36 C 

37 C 

38 C 

39 C 

40 C 

41 

42 

43 

44 C 

45 

46 

47 


FILE : MAIN0 8 . FOR 

PROGRAM TCCS08 

***************************************************************** 

***************************************************************** 

* PROGRAM TO MODEL REMOVAL OF SPACECRAFT * 

* GASEOUS CONTAMINANTS * 

* VERSION 8.0 Alpha * 

* APRIL 10, 1992 * 

★A*************************************************************** 
***************************************************************** 
SUBROUTINES REQUIRED: 

CAFILL-FILL MATRIX WITH ZEROS 
RAFILL-FILL MATRIX WITH ZEROS 
CRIN-READ IN INPUT DATA 
RRIN-READ IN INPUT DATA 
CROUT- PRINT OUT INPUT DATA 
RROUT- PRINT OUT INPUT DATA 
PCSET- PRECALCULATION SET UP ROUTINE 
MCALC-MAIN CALCULATION ROUTINE 
DATOUT-DATA PRINTOUT ROUTINE 
XXXXX-TIME DEPENDENT DATA ROUTINE 
REGEN- REGENERATION OF DEVICES ROUTINE 
SLIOH-SUM LIOH USED IN TIME INCREMENT 

NOTE : SUBROUTINES USE ADJUSTABLE SIZE ARRAYS 
WATCH COMPILER OPTIONS /DIMENSIONING IF 
ANY ARRAY IS LARGER THAN 64K BYTES 

***************** *DIMENSION MAIN PROGRAM MATRICES **************** 

NN=CONTAMINANT NAME MATRIX 

CDI=CONTAM INANT INPUT DATA MATRIX 

CC=CALCULATON MATRIX 

DD=DEVICE DEFINITION MATRIX 

TT=TIME DEPENDENT DATA MATRIX 

PRESENTLY SET TO HANDLE MAXIMUM OF 150 CONTAMINANTS IN MATRICES 
THIS VALUE =NROW AND IS USED IN ADDRESSING ADJUSTABLE SIZE 
ARRAYS IN SUBROUTINES 

NTTROW IS USED FOR MATRIX TT MAXIMUM LENGTH 

CHARACTER NN(300)*30 
REAL CDI (300,23 ) 

REAL CC (300 , 48) 

REAL DD( 15, 21 ) 

REAL DD ( 1 5 , 2 3 ) 

REAL TT (300 , 7 ) 
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48 

49 

50 

51 

52 

53 

54 

55 

56 

57 


NOTE -MUST COMPILE SUBROUTINES PROPERLY FOR ADJUSTABLE SIZE 
ARRAYS IF A MAIN MATRIX EXCEEDS 65536 BYTES (REALS=4 BYTES) 

************ DECLARE OTHER TERMS USED IN MAIN PROGRAM *********** 
CHARACTER FNAME*24 , DES*1 , FCPLOT*24 , FTPLOT*24 , FEPLOT*24 
T OPT PAL EX 

INTEGER PRTSW1 , PRTSW2 , PRTSW3 , PRTSW4 , PRTSW5 , PRTSW6 , PRTSW7 , PRTSW8 , 

+ TVAL , IDEVNO , IDEVNl , IDEVN2 , IDEVN3 , PRTSW9 


58 C 

******* 

PRINT 

59 

WRITE (* 

,9) 

60 009 

FORMAT 

(IX, 

61 

+ 

IX, 

62 

+ 

IX, 

63 

+ 

IX, 

64 

+ 

IX, 

65 

+ 

IX, 

66 

+ 

IX, 

67 

+ 

IX, 


68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


C 

C 


i * 
i * 
i * 
i * 
i * 
i * 


WELCOME TO THE WORLD 
OF THE 

SPACECRAFT ATMOSPHERIC TRACE CONTAMINATION 
CONTROL SIMULATION PROGRAM 
-VERSION 8.0 Alpha - 
April 10, 1992 


*•/ 
*•/ 
*'/ 
* ' / 
* ' / 
* ' / 


******* define PROGRAM VARIABLES ********************************* 

LIN=NO. OF LINES OF DATA IN MAT NN & MAT CDI & MAT CC 

LINl=NO. LINES OF DATA IN MAT TT 

LIN2=NO. LINES OF DATA IN MAT DD 

TN= INCREMENT END TIME (HRS) 

TNl= INCREMENT BEGINNING TIME (HRS) 

TMIS=TOTAL MISSION TIME (HRS) 

NINC=NUMBER OF TIME INCREMENTS ELAPSED 

MAT NN, CC , AND CDI MUST HAVE SAME NO. OF ROWS 

DIMENSIONS OF MAT DD 

NROW=15 

NCOL=21 

NCOL=23 

DIMENSIONS OF MAT CC & ROWS IN MAT NN 

NROW1=300 

NC0L1=48 

DIMENSIONS OF MAT CDI 
NROW2 =NROWl 
NCOL2=23 

DIMENSIONS OF MAT TT 
NTTROW=300 

DEVICE NUMBER FOR OUTPUT DATA (SET TO 6 FOR FORM FEED ON OUTPUT) 
IDEVNO=6 

DEVICE NUMBER FOR MESSAGE OUTPUT 
IMSGDN=2 

DEVICE NUMBER FOR CONTAMINANT PLOT DATA 
IDEVN1=10 
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98 C DEVICE NUMBER FOR T-VALUE PLOT DATA 

99 IDEVN3=11 

100 C DEVICE NUMBER FOR EFFICIENCY PLOT DATA 

101 IDEVN2=12 

102 C *********** END OF DEFINITION SECTION ************************* 

103 C 

104 C *************** ZERO MATRICES* ********************************** * 

105 C PUT BLANKS IN NAME MATRIX 

106 Oil CALL CAFILL(NN, l,NROWl) 

107 C PUT ZEROS IN OTHER MATRICES 

108 CALL RAFILL (CDI , NROW2 , NCOL2 ) 

109 CALL RAFILL (CC,NROWl,NCOLl) 

110 CALL RAFILL ( DD , NROW, NCOL ) 

111 CALL RAFILL (TT, NTTROW, NTTCOL) 

112 C 

113 C ******* read IN DATA FROM FILES AND PRINT IT IF DESIRED ******** 

114 C 

115 010 WRITE (*,*)' INPUT CONTAMINANT DATA FILE NAME: 

116 CALL CRIN (NN, CDI , NROW2 , NCOL2 , LIN) 

117 012 WRITE (*,*) 1 PRINT CONTAMINANT INPUT DATA? (Y/N) ' 

118 READ ( * , ' (A) 1 )DES 

119 IF ( (DES .NE . ' Y ' ) .AND. ( DES . NE . ' N ' ) ) GOTO 12 

120 IF (DES.EQ.'N') GOTO 20 

12 1 CALL CROUT2 (NN , CDI , NROW2 , NCOL2 , 1 , NCOL2 , LIN, 1 , LIN , IMSGDN ) 

122 C 

123 020 WRITE (*,*) 'INPUT DEVICE DEFINITION TABLE FILE NAME: 

124 C NOTE: ONLY 16 COLUMNS ARE IN THE INPUT FILE 

125 CALL RRIN (DD, NROW, NCOL, 16, LIN2) 

126 022 WRITE (*,*)' PRINT DEVICE DEFINITION TABLE? (Y/N) ’ 

127 READ( * , ' (A) ' ) DES 

128 IF ( (DES.NE. ' Y 1 ) .AND. ( DES . NE . ' N 1 ) ) GOTO 22 

129 IF (DES. EQ. 'N' ) GOTO 30 

130 CALL RROUT2 (DD, NROW, NCOL, 1,16, LIN2 , IMSGDN) 

131 C 

132 030 WRITE (*,*) 'INPUT TIME DEPENDENT DATA FILE NAME: 

133 CALL RRIN (TT, NTTROW, NTTCOL, NTTCOL, LINl) 

134 032 WRITE (*,*) 'PRINT TIME DEPENDENT DATA? (Y/N) ' 

135 READ ( * , ’ (A) ' )DES 

136 IF( (DES.NE. 'Y' ) .AND. (DES.NE. 'N' ) ) GOTO 32 

137 IF (DES.EQ.'N') GOTO 40 

138 CALL RROUT2 (TT, NTTROW, NTTCOL, 1, NTTCOL, LINl, IMSGDN) 

139 C 

140 C ************* read IN MISSION DATA VARIABLES ********************* 

141 C READ IN MISSION TOTAL TIME (HRS) 

142 040 WRITE (*,*) 'INPUT TOTAL MISSION TIME IN HOURS: 

143 READ ( * , * ) TMIS 

144 C 

145 C ********** priot SWITCH DEFINITION ***************************** 

146 C 1=RESULTS FOR ONE CONTAMINANT IN PCSET 

147 C 2=RESULTS FOR 1 CONT & INCR IN 1/20 INCR CONV ROUTINE (IN MCALC) 
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148 C 

149 C 

150 C 

151 C 

152 C 

153 C 

154 C 

155 C 

156 

157 

158 

159 

160 
161 
162 

163 

164 C 

165 C 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 

182 C 

183 C 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 C 


3 CONVERGENCE VALUES IN CONVRG 

4=RESULTS FOR 1 CONT IN MCALC AFTER CAV CALC 

5=MAT CC AND MAT DD AT END OF TIME INCREMENT 

6 = PRINT CONC+M. REM+SUM MASS REM+REM EFF (OTHERWISE ONLY CONC DATA) 
7= PRINT OUTPUT WITH NO FORM FEEDS 

8= PRINT ANSWERS DURING EACH ITERATION (IN MAIN PROGRAM) 

9 CONTROL PLOT FILE OUTPUT 

TVAL CONTROL OUTPUT OF GROUP CONTRIBUTION T-VALUE DATA 
PRTSWl =NINT ( DD ( 2 , 9 ) ) 

PRTSW2=NINT(DD(2, 10) ) 

PRTSW3 =NINT ( DD (2,11) ) 

PRTSW4=NINT (DD (2 , 12 ) ) 

PRTSW5=NINT (DD (2 , 13 ) ) 

PRTSW6=NINT (DD (2 , 14 ) ) 

PRTSW7 =NINT ( DD (2,15) ) 

PRTSW8=NINT ( DD ( 2 , 16 ) ) 

**** MAKE DECISION ON CONCENTRATION AND EFFICIENCY PLOT DATA **** 


WRITE (* 
WRITE (* 
WRITE (* 
WRITE (* 
WRITE (* 
WRITE (* 
READ (* 


DO YOU WISH TO WRITE INCREMENT DATA TO A PLOT FILE? 

1. Concentration Data (C) ' 

2. Efficiency Data (E) ' 

3. Both Concentration and Efficiency Data (B) 

4. Neither (N) ' 

ENTER YOUR SELECTION: 


READ (*, ' (A) ' ) DES 
IF (DES.EQ.’C) THEN 
PRTSW9=1 

ELSEIF (DES.EQ.'E') THEN 
PRTSW9=2 

ELSEIF (DES.EQ.'B 1 ) THEN 
PRTSW9=3 
ELSE 

PRTSW9=0 

ENDIF 


*************** MAKE DECISION ON T-VALUE OUTPUT ***************** 
WRITE ( * , * ) ' PRINT GROUP CONTRIBUTION T-VALUE DATA? 1 

WRITE (*,*) ' 1. Print to Normal Output (Y) 

WRITE (*,*)' 2. Print to Normal Output and Plot File ( P ) 

WRITE (*,*) ' 3. Do Not Print (N) ' 

WRITE ( * , * ) ' ENTER YOUR SELECTION : ' 

READ (*, ‘ (A) ' ) DES 
IF ( DES . EQ . ' Y 1 ) THEN 
TVAL=1 

ELSEIF ( DES . EQ . ' P ' ) THEN 
TVAL=2 
ELSE 
TVAL=3 
ENDIF 
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198 C 

199 

200 
201 
202 

203 C 

204 C 

205 C 

206 

207 C 

208 

209 

210 C 

211 

212 C 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 C 

237 C 

238 C 

239 

240 

241 

242 

243 

244 

245 

246 

247 


CHANGE TO NO FORM FEED IF PRTSW7=1 
IF (PRTSW7.EQ.1) THEN 
IDEVNO=7 
ENDIF 

*************** MAKE DECISIONS ON DATA OUTPUT ************** 
THIS IS WHERE ALL PROGRAM OUTPUT DATA FILES ARE OPENED 
THEY MUST BE CLOSED AT THE END OF THE PROGRAM 

SECTION WHICH CHECKS FOR EXISTANCE OF OUTPUT FILE & OPENS IT 
050 WRITE (*,*) ' WRITE OUTPUT TO FILE, PRINTER, SCREEN, OR END?' 

WRITE (*,*)' (FILE NAME/LPT1 /CON/END) ' 

*********** NOTE: LPTl OUTPUT REQUIRES 132 COLUMNS ********** 

READ ( * , 1 (A) 1 ) FNAME 

QUIT IF FNAME=END 

IF (FNAME. EQ. 'END' ) GOTO 999 

IF ( (FNAME. NE. ' LPTl 1 ) .AND. (FNAME. NE. 'CON' ) ) THEN 
INQUIRE (FILE=FNAME , EXIST=EX) 

IF (EX) THEN 

WRITE (*,*)' FILE EXISTS - OVERWRITE? (Y/N) * 

READ ( * , ' (A) ' ) DES 
IF (DES.NE.'Y') THEN 
GOTO 50 
ELSE 

OPEN ( IDEVNO , FILE=FNAME , STATUS = ' OLD ’ , IOSTAT=IOVAL ) 
ENDIF 
ELSE 

OPEN (IDEVNO, FILE=FNAME, STATU S= 'NEW' , IOSTAT=IOVAL) 

ENDIF 

ENDIF 

IF { (FNAME. EQ. 'LPTl' ) .OR. (FNAME. EQ. 'CON' ) ) THEN 
OPEN ( IDEVNO, FILE=FNAME, IOSTAT=IOVAL) 

ENDIF 

IF { IOVAL . NE . 0 ) THEN 
CLOSE (IDEVNO) 

WRITE (*,*)' IOERROR= ' , IOVAL 
GOTO 50 

ENDIF 

****** ©PEN FILE FOR CONCENTRATION PLOT DATA IF PRTSW9=1 OR 3 

IF ( (PRTSW9.EQ.1) .OR. (PRTSW9.EQ.3) ) THEN 
052 WRITE (*,*) 'FILE NAME FOR CONCENTRATION PLOT DATA OUTPUT? 
READ ( * , 1 (A) ' ) FCPLOT 
INQUIRE (FILE=FCPLOT, EXIST=EX) 

IF (EX) THEN 

WRITE (*,*) 'PLOT FILE EXISTS - OVERWRITE? (Y/N) ' 

READ (*, ' (A) ' ) DES 
IF (DES.NE.'Y') THEN 
GOTO 52 
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EL OPEN (UNIT=10 , FILE=FCPLOT, STATUS= 1 OLD 1 , IOSTAT-IOVAL) 
ENDIF 

(UNIT=10 , FILE=FCPLOT , STATUS= 'NEW' , IOSTAT=IOVAL) 

ENDIF 

IF (IOVAL.NE.0) THEN 
CLOSE (UNIT=10 ) 

WRITE ( * , * ) 1 IOERROR= 1 , IOVAL 

GOTO 52 
ENDIF 

******* OPEN FILE FOR EFFICIENCY PLOT DATA IF PRTSW9=2 OR 3 

DATA 0UTPUT? ' 

READ (*, 1 (A) 1 ) FEPLOT 
INQUIRE (FILE=FEPLOT, EXIST=EX) 

IF WRITE™*) 'PLOT FILE EXISTS - OVERWRITE? (Y/N) 1 

READ (*, 1 (A) 1 ) DES 
IF (DES .NE. ' Y 1 ) THEN 
GOTO 54 

EL OPEN (UNIT=12 , FILE=FEPLOT, STATUS= 1 OLD 1 , IOSTAT=IOVAL) 
ENDIF 

OPEN F (UNIT=12 , FILE=FEPLOT , STATUS= 'NEW' , IOSTAT=IOVAL) 

ENDIF 

IF ( IOVAL. NE.0) THEN 
CLOSE (UNIT=12 ) 

WRITE (*,*) 1 IOERROR= 1 , IOVAL 

GOTO 54 
ENDIF 

.......... OPEN FILE FOR T-VALUE PLOT DATA IF TVAL=2 ***’" 

FOR T-VALUE PLOT DATA OUTPOT? ' 

READ (*,‘(A)') FTPLOT 
INQUIRE (FILE=FTPLOT , EXIST=EX) 

IF WRITE ™) •PLOT FILE EXISTS - OVERWRITE? (Y/N) 1 

READ (* , 1 (A) 1 ) DES 
IF (DES .NE . 1 Y 1 ) THEN 
GOTO 56 

EL open (UNIT=ll,FILE=FTPLOT,STATUS= 1 OLD 1 ,IOSTAT= IOVAL) 

ENDIF 
ENDIF 
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OPEN (UNIT=11 , FILE=FTPLOT, STATUS= 'NEW' , IOSTAT=IOVAL) 
ENDIF ' 

IF (IOVAL.NE.O) THEN 
CLOSE (UNIT=11) 

WRITE ( * , * ) 1 IOERROR= ' , IOVAL 

GOTO 56 
ENDIF 


CALL SYSTEM TIME AND DATE 

THIS MUST BE CALLED ONLY ONCE SO THAT THE TIME AND DATE WILL 
BE THE SAME ON ALL OUTPUT INFORMATION FOR ONE RUN 
CALL DATTM ( IMONTH, IDAY, I YEAR, IHOUR, IMINUTE, ISECOND) 

Tb Li.b ^ TR:CQUMTER F0R se Q uent 1AL page numbers on all outputs 


********* CHECK BASIC TIME INCREMENT ************************** 
DD { 1 1^^^^" INCREMENT (HRS) -DD(1, 11) ***************** 

********* TEST FOR BINC=0 (CAUSES ENDLESS TIME LOOP) ********** 
IF (BINC.BQ.0) THEN 
CLOSE ( IDEVNO) 

WRITE (*,*)' ERROR-BASIC TIME INCREMENT=0 ’ 

GOTO 999 
ENDIF 


TN=0 

TN1=0 

NINC=0 


ZERO INITIAL VARIABLES ************************* 


*********************** ****************************************** 
* PRECALCULATION SET UP ROUTINE * 

R 2, R £££ CONTAMINANTS ONE AT A TIME AT CAV PRED=lE-20, CALC INIT 

““ — (CAV'PR^SI 

TNI = INCREMENT INITIAL TIME (HRS) 

INCREMEN T SIZE (HRS) ( REF . =DD (1,11) ) PASS IN?”? 

LIN=NO . OF CONT IN MAT CC AND NN 
DD,NROW,NCOL=NAME & SIZE OF MAT DD 
CC , NROW1 , NCOLl=NAME & SIZE OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & SIZE OF MAT CDI 
LIN2 =NO . DEVICES IN MAT DD 
NN=NAME OF MAT NN 

INPUTS FROM PRECALC SETUP ROUTINE- SUBROUTINE PCSET- 
PUT IN MAT CC 


C AVPRD = PRED CABIN AV CONC (MG/CU M) : =CC(I,2) 
CEQLIB=EQUILIBRIUM CABIN CONT CONC (MG/CU M):=CC(I,3) 
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CFINAL=FINAL CABIN CONT CONC (MG/CU M):=CC(I,4) 

PUTS REM EFF FROM DD COL 20 IN CC (I , 7-10-13-16 ETC) 

PUTS M.REM IN CC ( I , 5-8-11- 14 . . ) 

CALL PCSET ( TNI , LIN , DD , NROW, NCOL , CC , NROW1 , NCOL1 , 

+CDI , NROW2 , NCOL2 , LIN2 , NN, PRTSWl , IMSGDN) 

************* END of PRECALCULATION SETUP ROUTINE ********** 

************************************************************ 

* BEGINNING OF CALCULATION FOR EACH TIME INCREMENT 
************************************************************ 

100 CONTINUE 

********* INCREASE INCREMENT COUNTER ********************* 
NINC=NINC+1 

********* CHECK FOR CHANGES IN BASIC TIME INCREMENT ****** 
DO 105 K=1 , LINl 

IF (TT(K,1) .EQ.TN1) THEN 

IF { (TT (K, 4 ) . EQ. 1 ) .AND. (TT(K,6) .EQ.ll) ) THEN 
BINC=TT (K, 7 ) 

ENDIF 
ENDIF 
105 CONTINUE 

********* SET UP TIME jnCREMENT SIZE FOR INCREMENT ********* 
IF (NINC.EQ.l) TN=BINC/24 
IF (NINC.EQ.2) TN=BINC/2 
IF (NINC.EQ.3) TN=BINC 
IF (NINC.GT.3) TN=TN+BINC 

CHECK FOR INCREMENT FINAL TIME > MISSION TIME 
IF (TN.GT.TMIS) TN=TMIS 

****** LIST increment NO. AND TIMES TO CONSOLE ************* 
IF ( (FNAME.NE. 'CON' ) .OR. ( PRTSW8 . NE . 1 ) ) THEN 
OPEN ( IMSGDN, FILE= ' CON ' , IOSTAT=IOVAL) 

WRITE ( IMSGDN ,65) NINC , TNI , TN 

065 FORMAT (IX, ' INCR NO.= ',15,' BEGIN & END TIMES (hours)=', 

+ F8.3,2X,F8.3) 

CLOSE (IMSGDN) 

ENDIF 

*********** READ TIME DEPENDENT DATA *********************** 
CALL TIME DEPENDENT DATA SUBROUT INE-RINCDD 
CALL RINCDD ( I , TN, TNI , DD, NROW, NCOL, LIN2 , 

+CC , NROW1 , NCOLl , CDI , NROW2 , NCOL2 , LIN , TT, NTTROW, NTTCOL , LINl ) 

* * * * STORE ORIGINAL Q DEVICE IN DD COL 7 (TAKEN FROM DD COL 2) 
DO 110 J=1 , LIN2 

DD ( J, 7 ) =DD ( J, 2 ) 

110 CONTINUE 



398 

399 C 

400 C 

401 

402 

403 

404 C 

405 

406 C 

407 C 

408 C 

409 C 

410 C 

411 C 

412 C 

413 C 

414 C 

415 C 

416 C 

417 C 

418 C 

419 C 

420 C 

421 

422 

423 

424 

425 

426 

427 C 

428 C 

429 

430 

431 C 

432 C 

433 C 

434 

435 

436 

437 

438 C 

439 C 

440 

441 C 

442 C 

443 C 

444 C 

445 C 

446 

447 


*********** CHECK FOR REGENERATION IN TIME INCREMENT *********** 

CALL REGENERATION SUBROUTINE REGEN 

CALL REGEN (TN, TNI , DD, NROW , NCOL , CC , NROWl , NCOLl , 

+CDI , NROW2 , NCOL2 , LIN , LIN2 , IMSGDN ) 


********** CALL MAIN CALCULATION SUBROUTINE 




OUTPUTS TO MAIN CALC SUBROUTINE-MCALC : 

I ^CONTAMINANT NO. 

TN, TNI = INCREMENT END & BEGINNING TIME (HRS) 

DD , NROW , NCOL=NAME & DIM OF MAT DD 
CC, NROWl, NCOLl =NAME & DIM OF MAT CC 
CD I , NROW2 , NCOL2 =NAME & DIM OF MAT CDI 
NN=NAME OF MAT NN 

LIN=NUMBER OF CONTAMINANTS IN MAT NN & CDI 
LIN2=NO. DEVICES IN MAT DD 
INPUTS FROM MAIN CALC ROUTINE-MCALC : 

TO MAT CC 

PUTS CAVCLC , CEQLIV , &CFINAL IN CC(I,2-3 &4) 

PUTS REM EFF FROM DD COL20 IN CC (1,7-10-13 ETC) 

PUTS M.REM FOR EACH DEV FROM DD COL21 IN CC (1, 6-9-12 ETC) 
PUTS SUM MASS REM FOR EACH DEV IN CC (I, 8-11-14 ETC) 


CALL MCALC ( I , TN , TNI , DD , NROW , NCOL , 

+CC , NROWl , NCOLl , CDI , NROW2 , NCOL2 , NN , LIN , LIN2 , 

+PRTSW2 , PRTSW3 , PRTSW4 , IMSGDN) 

************ CALCULATE LIOH USED IN INCREMENT ******************* 

CALL LIOH REMOVAL SUBROUTINE SLIOH 

CALL SLIOH ( TN , TNI , DD , NROW , NCOL , CC , NROWl , NCOLl , 

+CDI , NROW2 , NCOL2 , LIN , LIN2 ) 

************ RESTORE DEVICE FLOW ******************************** 
RESTORE ORIGINAL DEVICE FLOW RATE FROM DD COL 7 TO DD COL 2 
DO 120 J=1 , LIN2 
DD ( J, 2 ) =DD ( J, 7 ) 

120 CONTINUE 

********* PRINTOUT OF DATA FOR EACH TIME INCREMENT ************** 
IF PRTSW5=1 THEN PRINT MAT DD+MAT CC INFO FOR THIS CONTAMINANT 
IF ( PRTSW5 . EQ . 1 ) THEN 

OPEN ( IMSGDN , FILE= ' CON ' , IOSTAT=IOVAL) 

WRITE (IMSGDN, *) 'PRINTOUT FOR MAT CC & DD AT END OF TIME INCR 1 
WRITE ( IMSGDN , * ) ' INFO FROM MAT CC' 

CLOSE (IMSGDN) 

CALL CROUT(NN,CC, NROWl, NCOLl, 1, NCOLl, LIN, 1, LIN, IMSGDN) 

CALL CROUT (NN , CC , NROWl , NCOLl , 1 , NCOLl , LIN , 1 , LIN , IMSGDN , NINC , 

+ FNAME , IDEVNO , IOVAL) 
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OPEN ( IMSGDN , FILE= ’ CON ' , IOSTAT=IOVAL) 

WRITE (IMSGDN, *)' INFO FROM MAT DD' 

CLOSE (IMSGDN) 

CALL RROUT ( DD , NROW , NCOL , 1 , NCOL , LIN2 , IMSGDN ) 

CALL RROUT ( DD , NROW , NCOL , 1 , NCOL , LIN2 , IMSGDN , FNAME , IDEVNO , IOVAL ) 
ENDIF 

*********** REGULAR PRINTOUT OF DATA FOR EACH INCREMENT ******** 
IF (PRTSW8.EQ. 1) THEN 

CALL DATOUT ( TN , TNI , LIN , DD , NROW , NCOL , CC , NROWl , NCOLl , 

+ CDI , NROW2 , NCOL2 , LIN2 ,NN, PRTSW6 , PRTSW8 , PRTSW9 , 

+ IDEVNO, NINC , IMONTH, IDAY, I YEAR, IHOUR, IMINUTE, FNAME, IOVAL, IPGCTR, 
+ TVAL , FCPLOT , IDEVN1 , IDEVN3 , IDEVN2 ) 

IF ( IOVAL. NE.0) THEN 
CLOSE (IDEVNO) 

WRITE ( * , * ) 1 PROGRAM DATA OUTPUT ERROR IN INCREMENT = ' , NINC 
GOTO 999 
ENDIF 
ENDIF 

********* CONTROLS PLOT DATA OUTPUT IF PRTSW8=0 **************** 
IF (PRTSW8.EQ.0) THEN 

IF ( (PRTSW9.GT.0) .OR. (TVAL.EQ.2) ) THEN 

CALL DATOUT (TN, TNI , LIN, DD, NROW, NCOL, CC , NROWl , NCOLl , 

+ CDI , NROW2 , NCOL2 , LIN2 ,NN, PRTSW6 , PRTSW8 , PRTSW9 , 

+ IDEVNO, NINC, IMONTH, IDAY, IYEAR, IHOUR, IMINUTE, FNAME, IOVAL, 

+ IPGCTR, TVAL , FCPLOT, IDEVNl , IDEVN3 , IDEVN2 ) 

ENDIF 

ENDIF 

********************* CHECK for end of mission ***************** 

IF (TN.GE.TMIS) THEN 
END TIME LOOP 
CONTINUE 
ELSE 

********* UPDATE FOR NEXT TIME INCREMENT AND REPEAT ************ 
SET T FINAL FOR THIS INCR = TINIT FOR NEXT INCR 
TN1=TN 

SET CFINAL FOR INCR=CINIT FOR NEXT INCR-ALL CONTAMINANTS 
DO 130 1=1, LIN 
CC (1,1) =CC (1,4) 

CONTINUE 
GOTO 100 
ENDIF 

***************************************************************** 

* END OF CALCULATION FOR EACH TIME INTERVAL * 

★ ★★★★a*********************************************************** 


****** print FINAL ANSWERS AT END OF MISSION IF DESIRED ********* 
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900 CONTINUE 

IF (PRTSW8.EQ.0) THEN 

CALL DATOUT ( TN , TNI , LIN , DD , NROW , NCOL , CC , NROWl , NCOL 1 , 
+ CDI , NROW2 , NCOL2 , LIN2 , NN , PRTSW6 , PRTSW8 , PRTSW9 , 

+ IDEVNO , - 1 , IMONTH , IDAY , I YEAR , IHOUR , IMINUTE , FNAME , 
+ TVAL, FCPLOT, IDEVNl , IDEVN3 , IDEVN2 ) 


I OVAL, IPGCTR, 


C 


IF ( IOVAL.NE . 0 } THEN 
CLOSE (IDEVNO) 

WRITE ( * , * ) 'PROGRAM DATA OUTPUT ERROR - FINAL PRINTOUT' 


GOTO 999 
ENDIF 
ENDIF 

************ CLOSE ALL PROGRAM OUTPUT FILES 
CLOSE (IDEVNO) 

CLOSE (IDEVNl) 

CLOSE (IDEVN3) 

CLOSE (IDEVN2) 




999 CONTINUE 

WRITE ( * , * ) 'DO YOU WISH TO RUN ANOTHER CASE? (Y/N) ' 

READ (*, ' (A) ' ) DES 
IF (DES.EQ. 'Y') THEN 
GO TO 011 

£ i**^**^* ************************************************** ********* 

c * EM) OF MAIN PROGRAM * 

Q ***************************************************************** 

END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\ACHBD.F Options: /C 80 /L /BY 
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★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★a********************* 

* FILE :ACHBD. FOR * 

* SUBROUTINE FOR REM EFF-AXIAL FLOW CHARCOAL BED * 

* DOESNT ALLOW FOR DESORPTION * 

*★★*★★★*★*****★*★*★*★★★***★★★*****★★******★*****★**** 


SUBROUTINE ACHBD (TN, TNI , CIIN, TCABIN,COEXIS , BEDQ, EMAX, BEDL, 

+BEDDIA , DENCH , TRTTYP , DCONT , VMOL , MW , VCONC , SOL , SMR , EFF ) 

OUTPUT: 

EFF=BED REMOVAL EFF (DEC) 

INPUTS : 

TN, TNI=INCREMENT INITIAL AND FINAL TIMES (HR) 

CIIN=BED INLET CONT CONC (MG/CU M) 

TCAB IN=CAB IN TEMP (DEG K) 

COEXIS=COEXI STANCE FACTOR 
BEDQ=BED FLOW RATE (CU M/HR) 

EMAX=MAXIMUM BED EFF (DEC) 

BEDL=BED LENGTH (M) 

BEDDIA=BED DIAMETER (M) 

DENCH=DENSITY OF CHARCOAL IN BED (KG/CU M) 

TRTTYP=BED TREATMENT TYPE(1=CI CHAR,2=PHOS ACID, OTHER #=NONE) 
DCONT=CONT LIQUID DENSITY (GM/CC) 

VMOL = CONT MOLAR VOL (GM/CC) 

MW=CONT MOLECULAR WGT 

VCONC=CONT VAPOR CONCENTRATION AT TCAB IN (MG/CU M) 

SOL=HENRY ' S LAW CONSTANT FOR WATER SOLUBILITY (ATM/MOLE FRACTION) 
SMR=SUM OF CONT MASS STORED IN BED (MG) -FROM LAST INCR 

REAL LPREV, LAVN1 , LUTIL, LIMM, LAVAV, LADS, MW 
INTEGER FAC ID, FC I 

SET CIN=CIIN (THIS PREVENTS CIN FROM BEING PASSED BACK UP 
TO OTHER SUBROUTINES IF IT IS SET TO IE-20) 

CIN=CIIN 

BED TREATMENT LOGIC 

FAC I D= FLAG IF BED IS TREATED WITH PHOSPHORIC ACID (Y=l N=0) 
FCI=FLAG FOR Cl CHAR IN BED (REMOVES FORMALDAH YDE ) 

IF (NINT (TRTTYP) .EQ. 2) THEN 
FACID=1 
FCI = 0 

ELSEIF (NINT (TRTTYP) .EQ.l) THEN 
FACID=0 
FCI=1 
ELSE 

FACID=0 
FCI = 0 
ENDIF 
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TEST FOR NO BED FLOW(BEDQ=<0) OR TN-TN1<=0; BEDL, BEDDIA, DENCH=0 
IF ( (BEDQ.LE. 0) .OR. (TN-TNl . LE. 0 ) .OR. (BEDL.LE. 0) .OR. (BEDDIA. LE. 0 ) 
+. OR. (DENCH. LE.0) ) THEN 
EFF=0 
GOTO 199 

TEST FOR Cl CHARCOAL AND FORMALDEHYDE (FCI=1 AND MW=30.03) 

IF ( (MW. EQ. 30.03) .AND. (FCI.EQ.l) ) THEN 

CALL CICH (EFF, EMAX, BEDL, BEDDIA, DENCH, SMR, BEDQ) 

GOTO 199 
ENDIF 

TEST FOR AMMONIA AND PHOS ACID ON CHAR(FACID=1 AND MW=17.0 ) 

IF ( (MW.EQ.17.0) .AND. (FACID.EQ.l) ) THEN 

CALL AC IDCH ( EFF , EMAX , BEDL , BEDDIA , DENCH , SMR) 

GOTO 199 
ENDIF 


TEST FOR MOL VOL=0 (NO CHAR REMOVAL) 
IF (VMOL.EQ.O) THEN 
EFF=0 
GOTO 199 
ENDIF 


CHARCOAL REMOVAL EFFICIENCY CALCULATION 
SUPERFICIAL BED VEL (FT/MIN) 

BEDVEL=BEDQ* . 069 60 /BEDDIA* *2 
TEST FOR CIN TOO SMALL IN AVAL CALC 
IF (CIN.LT. IE-20) CIN=lE-20 
AVAL= (TCABIN/VMOL) *LOG10 (VCONC/CIN) 

ADS ZONE LENGTH FOR 90% REMOVAL (M) 

LADS=AVAL* . 000275* (BEDVEL/1.3) **.8 
GET QI(CC LIQ CONT/GM CHAR) 

CALL FQI (AVAL , QI , FACID , SOL ) 

LENGTH OF BED PREVIOUSLY USED BY CONT AT THIS C INLET 
LPREV=SMR* 1 . 2 7 3 E- 6 *COEXIS / (DCONT*DENCH*BEDDIA* *2 *QI ) 


(M) 


RATE OF BED USAGE (M BED/ MG CONT) 

LIMM=1 . 273E-6*COEXIS/ (DCONT*DENCH*BEDDIA**2*QI) 

LENGTH OF BED AVAILABLE FOR ADS ZONE AT BEGINNING OF INCR 


LAVN1 =BEDL- LPREV 

IF (LAVN1.LT.0) LAVN1=0 

FIX HERE IF DESORPTION IS DESIRED 

IF (LAVN1/LADS.GT.20) THEN 


EFFAV=EMAX 


(M) 


INIT INCR EFF BASED ON C IN AND BED L AVAIL AT BEG OF INCR (DEC) 
EFAVNl=EMAX* (1-EXP (-2 . 3025851*LAVN1/LADS) ) 

LOOP FOR EFFICIENCY 
EFFAV=EFAVN1 
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DO 399 J=l,10,l 

LENGTH OF BED UTILIZ IN INCR (M) 
LUTIL=CIN*BEDQ*EFFAV* (TN-TNl) *LIMM 
IF (LUTIL.GT.LAVNl) THEN 
GOTO 299 
ELSE 

AVERAGE BED LENGTH AVAIL (M) 

LAVAV=LAVN1 - LUTI L / 2 
IF ( (LAVAV/LADS) .GE.20) THEN 
EFFAV=EMAX 
GOTO 299 
ELSE 

AV EFF BASED ON AV BED L AVAIL (DEC) 
EFFAV=EMAX* (1-EXP ( -2 . 3025851*LAVAV/LADS ) ) 
ENDIF 
ENDIF 
399 CONTINUE 
299 ENDIF 

MAX EFF BASED ON C IN AND RATE OF BED USAGE (DEC) 
EFFMAX=LAVNl/ (CIN*BEDQ* (TN-TNl ) *LIMM) 

IF ( EFFAV . GT . EFFMAX ) EFFAV=EFFMAX 
IF (EFFAV. LT.O) EFFAV=0 
IF ( EFFAV. GT.EMAX) EFFAV=EMAX 
EFF=ACTUAL EFF OUTPUT FROM SUBROUTINE 
EFF=EFFAV 

REMOVE THIS CHECK IF DESORPTION IS ADDED 
199 IF (EFF. LT.O) EFF=0 

IF (EFF. GT.EMAX) EFF=EMAX 

RETURN 

END 

OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 

*************************************************** 

* SUBROUTINE ACIDCH - CALCULATES REMOVAL EFF 

* BED WITH NH3 AND .2 MILLIMOLE H3P04 ON CHAR 
*************************************************** 

SUBROUTINE ACIDCH (EFF, EMAX , BEDL , BEDDIA , DENCH, SMR) 
OUTPUTS 

EFF=OUTPUT REMOVAL EFF (DEC) 

INPUTS 

EMAX=MAXIMUM BED REMOVAL EFF (DEC) 

BEDL=BED LENGTH (M) 

BEDDIA=BED DIAMETER (M) 

DENCH=CHARCOAL DENSITY (KG/CU M) 

SMR=SUM OF MASS OF CONT REMOVED AT BEG OF INCR (MG) 

CHAR USED (KG) 

CHRUSD=9 . 61E-6*SMR 
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CHAR BED WGT(KG) 

BEDWGT=BEDL*BEDDIA**2* .785*DENCH 
IF (CHRUSD.LT. 0 . 8*BEDWGT) THEN 
EFF=EMAX 
ELSE 

EFF=EMAX*SIN ( (BEDWGT-CHRUSD) * 1 . 57/ (BEDWGT*0 . 2 ) ) 
ENDIF 

PREVENTS NEGATIVE EFF FOR REACTION 

IF (EFF.LT.O) EFF=0 

IF (EFF.GT.EMAX) EFF=EMAX 

RETURN 

END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
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187 

188 

NUMBER OF 


***************************************************** 

* SUBROUTINE CICH - CALCULATES REMOVAL EFF * 

* FOR FORMALDELYDE AND Cl CHAR BED * 

***************************************************** 
SUBROUTINE CICH (EFF, EMAX, BEDL, BEDDIA, DENCH , SMR , BEDQ ) 
OUTPUTS 

EFF=OUTPUT REMOVAL EFF (DEC) 

INPUTS 

EMAX=MAXIMUM BED REMOVAL EFF (DEC) 

BEDL=BED LENGTH (M) 

BEDDIA=BED DIAMETER (M) 

DENCH=CHARCOAL DENSITY (KG/CU M) 

SMR=SUM OF MASS OF CONT REMOVED AT BEG OF INCR (MG) 
BEDQ=BED FLOW RATE (CU M/HR) 

BEDWGT=BEDL*BEDDIA* *2 * . 785*DENCH 
PERCENT OF BED WEIGHT CONSUMED (DEC) 

PBWGT=SMR/ (BEDWGT*1E6) 

IF(PBWGT.LT. .0012) THEN 
EFF=1-PBWGT*83 . 3 
ELSE 

EFF= . 9 *COS ( PBWGT*1 . 57 / . 05 ) 

ENDIF 

BED RESIDENCE TIME (SEC) 

BREST=BEDL *BEDDI A * *2 * 3 600 / ( BEDQ *1.273) 

IF (BREST.LT. 0.25) THEN 
EFF=EFF*BREST/ .25 
ENDIF 

PREVENTS NEGATIVE EFF FOR REACTION 

IF (EFF.LT.O) EFF=0 

IF (EFF.GT.EMAX) EFF=EMAX 

RETURN 

END 

WARNINGS IN PROGRAM UNIT: 0 
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NUMBER OF ERRORS IN PROGRAM UNIT: 0 

189 C ***************************************************** 

190 C * SUBROUTINE FQI - FINDS QI, THE CHARCOAL * 

191 C * CAPACITY FOR A CONT (CC LIQ CONT/GM CHAR) * 

192 C ********** ★ ***************************************** * 

193 SUBROUTINE FQI (AVAL, QI , FACID, SOL) 

194 INTEGER FACID 

195 C OUTPUTS 

196 C QI=CHARCOAL CAPACITY (CC LIQ CONT/GM CHAR) 

197 C INPUTS 

198 C AVAL= A VALUE OF CONTAMINANT 

199 C FACID= FLAG FOR ACID TREATED CHAR IN BED (Y=l N=0) 

200 C SOL= CONTAMINANT HENRY'S LAW CONSTANT (ATM/MOL FRACTION) 

201 C 

202 IF ( AVAL . LT . 0 ) AVAL=0 

203 C A VALUE .GT. 10 AND .LT. 200 

204 IF ((AVAL .GT. 10) .AND. (AVAL . LT. 200 ) ) THEN 

205 C SOLUBLE CONTAMINANT - ACID OR NON-ACID TREATED CHAR 

206 IF (SOL.GT.O) THEN 

207 QI=2 . 2947 *EXP (-0.26492 *AVAL) 

208 C INSOLUBLE CONTAMINANT + NON ACID TREATED CHARCOAL 

209 ELSEIF (FACID. LE. 0 . 1 ) THEN 

210 QI=2 . 80289*EXP(-0.28842*AVAL) 

211 C INSOLUBLE CONT + ACID TREATED CHARCOAL 

212 ELSE 

213 QI=3 . 8636*EXP (-0 . 32307*AVAL) 

214 ENDIF 

215 C A VALUE .LE. 10 

216 ELSEIF (AVAL . LE . 10 ) THEN 

217 QI=. 56-AVAL*. 04 

218 C AVAL .GE. 200 

219 ELSE 

220 QI=lE-20 

221 ENDIF 

222 RETURN 

223 END 

NUMBER OF WARNINGS IN PROGRAM UNIT: 0 

NUMBER OF ERRORS IN PROGRAM UNIT: 0 

NUMBER OF WARNINGS IN COMPILATION : 0 

NUMBER OF ERRORS IN COMPILATION : 0 


79 



05/21/92 12:54:48 


RM/FORTRAN Compiler (V2.42) , 

Source File: C:\RMFORT\TCC\ALIOH.F Options: /C 80 /L /BY 


1 C 

2 C 

3 C 

4 C 

5 C 

6 

7 

8 C 

9 C 

10 C 

11 C 

12 C 

13 C 

14 C 

15 C 

16 C 

17 C 

18 C 

19 C 

20 C 

21 C 

22 C 

23 C 

24 

25 

26 

27 

28 C 

29 

30 C 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 C 




★ 

* 


SUBROUTINE ALIOH - AXIAL FLOW BED 
CALCULATES REMOVAL EFFICIENCY FOR LIOH 




SUBROUTINE ALIOH (TN, TNI , EMAX, BEDL, DENLI , BEDDIA, RWUTLI , SWUTLI , 
+REMFCT, EFF) 


INPUTS : 

TN= FINAL INCREMENT TIME (HRS) 

TNI = INITIAL INCREMENT TIME (HRS) 

EMAX=MAXIMUM POSSIBLE REMOVAL EFFICIENCY (DEC) 

BEDL=BED LENGTH (M) 

DENLI=LIOH DENSITY (KG/CU M) 

BEDDIA=BED DIAMETER (M) , 

RWUTLI =RATE OF LIOH USAGE FOR ALL CONTAMINANTS FROM LAST INCR (KG/HR) 
SWUTLI=SUM OF WEIGHT OF LIOH UTILIZED FROM LAST INCR (KG) 

REMFCT = L I OH REMOVAL FACTOR (LB LIOH /LB CONTAMINANT) 

OUTPUTS : 

EFF=REMOVAL EFFICIENCY (DEC) 


IF CONT DOESNT REACT WITH LIOH OR BEDL<=0 OR BED DIA < = 0 OR 
DENLI <=0 THEN REM EFF =0 

IF ( (REMFCT. LE.0) .OR. (BEDL.LE.0) .OR. (BEDDIA. LE. 0) .OR. (DENLI . LE. 0 ) ) 
+ THEN 
EFF=0 


ELSE 

BED WEIGHT (KG) 

BEDWGT=BEDL* (BEDDIA) **2* . 785*DENLI 

TOTAL WEIGHT OF LIOH UTILIZED AT AVERAGE TIME IN INCREMENT 
TWUTLI=SWUTLI+RWUTLI* (TN-TN1 ) /2 
IF (TWUTLI /BEDWGT . LE .0.8) THEN 
EFF=EMAX 
ELSE 

EFF=EMAX* SIN ( (BEDWGT -TWUTLI ) *1 . 57/ ( BEDWGT* 0 .2 ) ) 


(KG) 


ENDIF 

IF (BEDL. LT. 0.0191) THEN 
EFF=EFF*BEDL/ 0 .0191 
ENDIF 
ENDIF 

IF (EFF .LT. 0 ) EFF=0 

IF (EFF. GT. EMAX) EFF=EMAX 

RETURN 

END 

*********** END OF SUBROUTINE ALIOH 




NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\CAFILL. Options: /C 80 /L /BY 05/21/92 12:54:53 

1 c ***************************************************************** 

2 C * SUBROUTINE CAFILL * 

3 C * SUBROUTINE TO FILL ADJUSTABLE SIZE CHAR ARRAY WITH BLANKS * 

4 C ***************************************************************** 

5 SUBROUTINE CAFILL (NN, NROW, NCOL ) 

6 INTEGER NROW, NCOL 

7 CHARACTER NN ( NROW , NCOL ) * 3 0 

8 

9 C NN= ARRAY NAME- ARRAY HAS 30 CHARACTERS 

10 C NROW=NUMBER OF ROWS IN ARRAY (INTEGER) 

11 C NCOL=NUMBER OF COLUMNS IN ARRAY ( INTEGER) 

12 

13 DO 110 1=1, NROW 

14 DO 100 J=1 , NCOL 

15 NN ( I , J) = 1 ' 

16 100 CONTINUE 

17 110 CONTINUE 

18 RETURN 

19 C ************* q F SUBROUTINE CAFILL ************************** 

20 END 

NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\CALCM.F Options: 


/C 80 /L /BY 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
C 
28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


C 

C 

C 

C 

C 

C 






* SUBROUTINE CALCM 

* SUBROUTINE TO CALCULATE SUM OF MASSES REMOVED BY ALL DEVICES * 

* USES CAV CABIN, REM EFF DD(J,20), & M.GEN DD(J,19) TO CALC * 

* DEVICE CIN & COUT DD(J,17)& DD ( J, 18 ) , M. REM CABIN+DEV DD(J,21)* 
**************************************************************** 


SUBROUTINE CALCM ( DD , NROW , NCOL , CAV , SMGEN , SMREM , TN , L IN2 ) 
INTEGER NROW, NCOL, LIN2 
REAL DD (NROW, NCOL) 

C 

C SUBROUTINES REQUIRED: 

C NONE 


C INPUTS: 

C CAV=CABIN CONT AVERAGE CONCENTRATION (MG/CU M) 

C DD , NROW , NCOL=NAME AND SIZE OF MAT DD 
C TN = INCREMENT FINAL TIME (HRS) 

C LIN2=NO. OF DEVICES IN MAT DD 

C REM EFF AND DEVICE+CABIN M.GEN MUST BE LOADED INTO MAT DD 
C BEFORE USING THIS SUBROUTINE 

C OUTPUTS: 

C M.REM (MG/HR) FOR ALL DEVICES + CABIN CALCULATED AT CAV, 

C ARE STORED IN MAT DD COL 21 

C SMREM=SUM OF MASS OF CONT REM IN DEVICES (MG/HR) 

C SMGEN=SUM OF MASS GENERATED BY ALL DEVICES + CABIN (MG/HR) 27 

C LOAD DEVICES 1 AND 2 WITH CIN AND COUT+M . REMOVED FOR DEV 2 
C DEVICE 1=CABIN 

C LOAD MAT DD WITH CAV CABIN 

DD ( 1 , 17 ) =CAV 
DD ( 1 , 18) =CAV 
DD (1,21) =0 
C DEVICE 2 

DD (2,17) =CAV 
DD (2,18) =CAV 

DD (2 , 21 ) =DD (2 , 2 ) *DD (2 , 18 ) 

C FOR DEV 3-15 CALC CIN COUT AND M. REMOVED BY DEVICE 
C IF DEVICE FLOW RATE=0 THEN SET CIN, COUT, & M.GEN=0 

DO 100 J=3 , LIN2 
IF ( DD ( J , 2 ) . EQ . 0 ) THEN 
DD ( J, 17 ) =0 
DD(J, 18) =0 
DD ( J, 2 1 ) =0 
GOTO 100 
ENDIF 

C IF UPSTREAM DEVICE=1 OR 2 THEN SET INLET=CABIN CONC+DEV M.GEN/Q 
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48 

49 

50 

51 C 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 C 

74 C 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 C 

86 

87 

88 

89 C 

90 

91 C 

92 

93 C 

94 

95 

96 C 

97 C 


IF ( (DD ( J, 4 ) . EQ . 1 ) .OR. (DD(J,4) .EQ.2) ) THEN 
DD ( J, 17) =DD ( 1 , 18) +DD ( J, 19) /DD(J,2) 

KLSE 

DETERMINE FLOWS, CIN AND COUT FOR DEVICES WITH RELATIVE ADDRESSES 
IF (DD(J, 4) .EQ. 0) THEN 
QNOl=0 
CNOl=0 
ELSE 

QN01=DD (NINT (DD ( J, 4 ) ) ,2) 

CN01=DD (NINT (DD ( J, 4 ) ) , 18) 

ENDIF 

IF (DD(J, 5) .EQ. 0) THEN 
QNO2=0 
CNO2=0 
ELSE 

QN02=DD (NINT (DD ( J, 5 ) ) ,2) 

CN02 =DD ( NINT ( DD ( J , 5) ) , 18) 

ENDIF 

IF ( DD ( J , 6 ) . EQ . 0 ) THEN 
QNO3=0 
CNO3=0 
ELSE 

QN03=DD (NINT (DD ( J , 6) ) ,2) 

CN03=DD (NINT (DD ( J, 6) ) , 18) 

ENDIF 


IF ALL UPSTREAM DEVICE FLOWS=0 
IF ( QN01+QN02 +QN03 . EQ . 0 ) THEN 
DD ( J, 17) =0 
DD ( J, 18) =0 
DD ( J, 21) =0 

OPEN (2 , FILE= 1 CON ' , IOSTAT=IOVAL) 

WRITE ( * , * ) ' FLOW HALTED-UPSTREAM DEV TURNED OFF- 
+ INC END TIME ; DEV= ' , TN , DD ( J , 1 ) 

CLOSE (2) 

GO TO 100 
ELSE 

CALCULATE CIN 

DD ( J, 17) = (QN01*CN0l+QN02*CN02+QN03*CN03) / 

+ (QN01+QN02+QN03 ) +DD ( J , 19) /DD(J,2) 

ENDIF 

END OF DETERMINE FLOWS , C IN , COUT OF DEV WITH REL ADDR. 


ENDIF 

CALCULATE COUT 

DD ( J, 18 ) =DD ( J, 17 ) * ( 1-DD ( J, 20) ) 

CALCULATE SUM OF MASS REMOVED (CIN*Q*REM EFF) 
DD ( J, 21 ) =DD ( J, 17 ) *DD ( J, 2 ) *DD ( J , 20 ) 


l00 CONTINUE 

END OF LOADING OF MAT DD WITH DATA AND CALCULATING CIN COUT, M. REM 
SUM TOTAL MASS OF CONT REMOVED BY ALL DEVICES (2-15) (MG /HR) 
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98 SMREM=0 

99 DO 101 J=2 , LIN2 

100 SMREM=SMREM+DD ( J, 21) 

101 101 CONTINUE 

102 C SUM MASS OF CONT GENERATED IN ALL DEVICES+CABIN (1-15) (MG/HR) 

103 SMGEN=0 

104 DO 102 J=1 , LIN2 

105 SMGEN=SMGEN+DD ( J, 19) 

106 102 CONTINUE 

107 C CALC M. REM CABIN AND PUT IN DD(1,21) 

108 DD (1,21) =SMGEN- SMREM 

109 RETURN 

HO C ************ gup OF SUBROUTINE CALCM *************************** 

111 END 

NUMBER OF WARNINGS IN PROGRAM UNIT: 0 

NUMBER OF ERRORS IN PROGRAM UNIT: 0 

NUMBER OF WARNINGS IN COMPILATION : 0 

NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\CATBNR. Options: /C 80 /L /BY 05/21/92 12:55:12 


1 C 

2 C 

3 C 

4 C 

5 C 

6 

7 C 

8 C 

9 C 

10 C 

11 C 

12 C 

13 C 

14 

15 

16 

17 

18 

19 

20 

21 C 




SUBROUTINE CATBNR 
CALCULATES EFFICIENCY OF CAT BURNER 




SUBROUTINE CATBNR (EMAX, OXID, EFF) 


INPUTS : 

EMAX=MAXIMUM BED EFFICIENCY (DEC) 

OXID=DEGREE OF OXIDIZATION OF CHEMICAL ( 1=FULLY, 0=NONE) 
OUTPUTS : 

EFF=REMOVAL EFF (DEC) 


IF (OXID.LT. 0 ) OXID=0 

IF (OXID.GT. 1) OXID=l 

EFF=EMAX*OXID 

IF (EFF. LE. 0 ) EFF=0 

IF ( EFF. GT. EMAX) EFF=EMAX 

RETURN 

END 

***************** op SUBROUTINE CATBNR 




NUMBER OF WARNINGS 
NUMBER OF ERRORS 
NUMBER OF WARNINGS 
NUMBER OF ERRORS 


IN PROGRAM UNIT: 
IN PROGRAM UNIT: 
IN COMPILATION : 
IN COMPILATION : 


0 

0 

0 

0 
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RM/FORTRAN Coitpiler (V2.42) 

Source File: C:\RMFORT\TCC\CNRSUB. Options: /C 80 /L /BY 


05/21/92 12:55:15 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


****************************************************************;; 

* SUBROUTINE CNRSUB * 

* FOR 1 CONT AT A TIME AT CAV PRED, CALL EFF SUBROUTINES 

* FOR DEVICES AND PUT EFFICIENCY IN MAT DD COL 20 

mi,********************************************** 

NOTE: DEVICE NUMBERS IN THIS SUBROUTINE REFER TO DEVICE TYPES, 

NOT THEIR RELATIVE POSITION IN MAT DD 

SUBROUTINE CNRSUB ( I , TN , TNI , CAVPRD , DD , NROW , NCOL , CC , NROW1 , NCOL 1 , 
SUBROUTINE CNRSUB ( I , TN , TNI , DD , NROW , NCOL , CC , NROWl , NCOLl , 

+CDI , NROW2 , NCOL2 , LIN2 ) 

INTEGER NROW , NCOL , NROWl , NCOLl , NROW2 , NCOL2 
REAL DD (NROW, NCOL) 

REAL CC (NROWl , NCOLl ) 

REAL CDI (NROW2 ,NCOL2 ) 

SUBROUTINES REQUIRED: 

ACHBD - REMOVAL EFF OF AXIAL CHARCOAL BED 
RC HBD - REMOVAL EFF OF RADIAL CHARCOAL BED 
AL I OH - REMOVAL EFF OF AXIAL LIOH BED 
COOXID-REMOVAL EFF OF CO OXIDIZER 
CATBNR- REMOVAL EFF OF CAT BURNER 
CONDHX- REMOVAL EFF OF CONDENSING HX 

INPUTS: 

FROM PC SET PREDCT, AND CONVRG 

I=CONT NO. <im „. 

TN, TNl=CONT INCREMENT FINAL, INIT TIME (HRS) 

CAVPRD=CABIN AVERAGE CONT CONC (MG/CU M) 

DD , NROW , NCOL=NAME & DIMENSIONS OF MAT DD 
CC, NROWl, NCOL 1=NAME & DIM OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & DIM OF MAT CDI 
L IN2 =NUMBER OF DEVICES IN MAT DD 
FROM EFFICIENCY SUBROUTINES 
EFF=REMOVAL EFF (DEC) 

OUTPUTS : 

TO EFFICIENCY SUBROUTINES 

DEVICE AND CONTAMINANT INFORMATION AS REQUIRED 
DD ( J, 22 ) =DEVICE INLET CONCENTRATION 
TO PCSET, PREDCT, & CONVRG 

PUTS REMOVAL EFF FOR EACH DEVICE IN MAT DD COL 20 


EFFICIENCY FOR DEVICES 
DD( 1 , 20) =0 
DD (2 , 20 ) =DD (2 , 8 ) 


1 AND 2 
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48 C 

49 

50 C 

51 C 

52 

53 C 

54 

55 C 
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60 C 
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63 
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66 C 

67 

68 

69 C 

70 

71 

72 

73 C 

74 

75 

76 C 

77 

78 

79 C 
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83 

84 C 

85 

86 

87 C 

88 

89 C 

90 

91 

92 C 

93 

94 

95 C 

96 

97 


SET COUNTER FOR READING CHAR SMR IN MAT CC FOR DEVICE TYPE 3 
K=9 


BEGIN LOOP FOR DEVICES 3 TO 15 OF MAT DD 

DO 100 J=3 , LIN2 

INDEX COUNTER 

K=K+3 

SET REM EFF=0 AND GO TO END OF J LOOP IF DEVICE FLOW = 0 

IF(DD(J,2) .LE.1E-10) THEN 
DD ( J, 20 ) =0 
GOTO 80 

ENDIF 

DECISIONS FOR VARIOUS DEVICES 

IF (NINT (DD ( J, 3 ) ) . EQ. 3 ) THEN 

GO TO SUBROUTINE FOR DEVICE TYPE 3 -AXIAL CHARCOAL BED 
CALL ACHBD (TN, TNI , DD ( J, 22 ) , DD (1,10) , DD (1 , 13 ) , DD { J, 2 ) , DD ( J, 8 ) , 

+ DD ( J , 9 ) , DD ( J , 1 0 ) , DD ( J , 12 ) , DD ( J, 13 ) , CDI (1,2) , CDI (1,3) , 

+ CDI (1,4) , CDI (1,5), CDI (1,6) , CC ( I , K) , EFF) 

STORE EFF IN MAT DD 
DD ( J, 2 0 ) =EFF 

ELSEIF (NINT (DD ( J, 3 ) ) . EQ. 4 ) THEN 

GO TO SUBROUTINE FOR DEVICE TYPE 4 -RADIAL CHARCOAL BED 
CALL RCHBD ( TN , TNI , DD ( J , 2 2 ) , DD ( 1 , 10 ) , DD { 1 , 13 ) , DD ( J, 2 ) , DD ( J, 8 ) , 

+ DD ( J , 9 ) , DD ( J , 1 0 ) , DD ( J , 1 1 ) , DD ( J, 12 ) , DD ( J, 13 ) , CDI ( I , 2 ) , CDI ( I , 3 ) , 

+ CDI (1,4) ,CDI(I, 5) ,CDI (1,6) ,CC(I,K) ,EFF) 

STORE EFF IN MAT DD 
DD(J, 20) =EFF 

ELSEIF ( NINT ( DD ( J , 3 ) ) . EQ . 5 ) THEN 

GO TO SUBROUTINE FOR DEVICE TYPE 5-LIOH BED 

CALL ALIOH (TN, TNI , DD ( J, 8) ,DD(J,9) ,DD(J,10) , DD ( J, 12 ) , DD ( J, 15 ) , 

+ DD ( J , 1 6 ) , CDI (1,7) , EFF ) 

STORE EFF IN MAT DD 
DD ( J, 20 ) =EFF 

ELSEIF (NINT(DD(J, 3) ) .EQ. 6) THEN 

GO TO SUBROUTINE FOR DEVICE TYPE 6-CO OXIDIZER 
CALL COOXID (DD ( J, 2 ) ,DD(J,8) ,DD(J,9) ,DD(J,10) ,CDI(I,4) , EFF) 
STORE EFF IN MAT DD 
DD ( J, 20) =EFF 

ELSEIF (NINT (DD ( J, 3 ) ) . EQ. 7 ) THEN 

GO TO SUBROUTINE FOR DEVICE TYPE 7 -CAT BURNER 
CALL CATBNR ( DD ( J , 8 ) ,CDI(I,23) , EFF) 

STORE EFF IN MAT DD 
DD ( J, 20) =EFF 

ELSEIF (NINT (DD ( J, 3 ) ) .EQ.8) THEN 

GO TO SUBROUTINE FOR DEVICE TYPE 8 -CONDENSING HX 
CALL CONDHX ( DD ( J , 2 ) ,DD(J,8) ,DD(J,9) ,CDI(I,4) ,CDI(I,5) ,CDI(I,6) , 
+ DD ( J, 22 ) , EFF) 

STORE EFF IN MAT DD 
DD ( J, 20 ) =EFF 

ELSEIF ( NINT ( DD ( J , 3 ) ) . EQ . 9 ) THEN 
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98 C 

99 

100 C 

101 
102 

103 C 

104 

105 

106 

107 

108 

109 C 

110 

NUMBER 

NUMBER 

NUMBER 

NUMBER 


SUBROUTINE FOR DEVICE TYPE 9 -DUMMY 
EFF=0 

STORE EFF IN MAT DD 
DD ( J, 20 ) =EFF 
ELSE 

DEVICES >9 OR <1 (OR ANY DEVICE NOT IN ABOVE CASES) 
DD ( J, 20 ) =0 
ENDIF 

080 CONTINUE 
100 CONTINUE 
RETURN 

********** END OF SUBROUTINE CNRSUB 
END 




OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 
OF WARNINGS IN COMPILATION : 0 
OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\CONDHX. Options: /C 80 /L /BY 05/21/92 12:55:36 


1 C 

2 C 

3 C 

4 C 
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8 C 

9 C 

10 C 

11 C 

12 C 

13 C 

14 C 

15 C 

16 C 

17 C 

18 C 
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20 
21 
22 

23 

24 

25 

26 C 

27 C 

28 

29 

30 

31 

32 C 

33 C 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 C 




SUBROUTINE CONDHX 
CALCULATES EFFICIENCY OF CONDENSING HX 




SUBROUTINE CONDHX (BEDQ, EMAX, ML IQ, MW, VCONC, SOL, CAVPRD, EFF) 
REAL MW , MLIQ , H , PA , XA , NOUT 


INPUTS : 

BEDQ=BED FLOW RATE (M3 /HR) 

EMAX=MAXIMUM POSSIBLE REMOVAL EFFICIENCY (DEC) 
MLIQ=WATER FLOW RATE IN HX DUE TO CONDENSING (KG/HR) 
MW=MOLECULAR WEIGHT OF CONTAMINANT 
VCONT= VAPOR CONCENTRATION OF CONTAMINANT (MG/M3 ) 
SOL=HENRY'S LAW COEFFICIENT (ATM/MOL FRACTION) 
OUTPUTS : 

EFF =REMOVAL EFF (DEC) 


CAIN=CAVPRD 

IF (CAIN. LE . IE-10 ) THEN 
CAIN=0 . IE-10 
ENDIF 


IF (SOL.LE. IE-10) THEN 
EFF=0 
ELSE 

IF CONTAMINANT IS AMMONIA - USES EXPERIMENTAL DATA FROM JSC-08797 
FOR AMMONIA REMOVAL AS A FUNCTION OF C02 CONCENTRATION (8/23/76) 

IF (MW. EQ. 17.0) THEN 

CAOUT= ( (CAIN*BEDQ) - (MLIQ*189 . 5847418*CAIN* *0 . 534915256) ) /BEDO 
EFF= ( (CAIN-CAOUT) /CAIN) *EMAX W 

ELSE 

CONTAMINANT IS NOT AMMONIA 

CALCULATE CONTAMINANT PARTIAL PRESSURE AND WATER MOLE FRACTION 
PA=CAIN*1.0E-9*82.06*278/MW 

XA= (PA/1) / ( (MLIQ* (1000/18) ) / (BEDQ* (1000/22 . 4 ) )+SOL/l) 
NOUT=MLIQ*XA*1000/18 

CAOUT= ( (CAIN*BEDQ) - (NOUT*MW*1000) ) /BEDQ 
EFF= ( (CAIN-CAOUT) /CAIN) *EMAX 
ENDIF 
ENDIF 

IF (EFF.LE. 0 ) EFF=0 

IF ( EFF. GT. EMAX) EFF=EMAX 

RETURN 

END 


***************** 


END OF SUBROUTINE CONDHX *********************** 


NUMBER OF WARNINGS IN 
NUMBER OF ERRORS IN 
NUMBER OF WARNINGS IN 
NUMBER OF ERRORS IN 


PROGRAM UNIT: 
PROGRAM UNIT: 
COMPILATION : 
COMPILATION : 


0 

0 

0 

0 


C 


n 
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RM/FORTRAN Corrpiler (V2.42) 

Source File: C:\RMFORT\TCC\CONVRG. Options: 


/C 80 /L /BY 


05/21/92 12:55:41 


1 C 

2 C 

3 C 

4 C 

5 C 

6 C 

7 C 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 C 

20 C 

21 C 

22 C 

23 C 

24 C 

25 C 

26 C 

27 C 

28 C 

29 C 

30 C 

31 C 

32 C 

33 C 

34 C 

35 C 

36 C 

37 C 

38 C 

39 C 

40 C 

41 C 

42 C 

43 C 

44 C 

45 C 

46 C 

47 C 




SUBROUTINE CONVRG 
MAIN CONVERGENCE LOOP SUBROUTINE 
USING CAV PRED & BASED ON SUM MASS REM OF LAST INCR, 
NEW REM EFF, CAV CALC, CEQULIB, CFINAL, & M. REMOVED 
PUT THEM IN MAT DD - WORKS FOR ONE CONT AT A TIME 


CALC 


w FUT inm -LIN i’JLMX LJLJ - 

*************************************************** 


SUBROUTINE CONVRG ( I, TN,TNl,CAVPRD,DD, NROW, NCOL, 

+CC , NROW1 , NCOLl , CDI , NROW2 , NCOL2 , CAVCLC , CFINAL , CEQLIB , KK , LIN , LIN2 , 

+NN! PRTSW3 , IMSGDN) „ „„ 

INTEGER NRGW , NCOL , NROWl , NCOLl , NROW2 , NCOL2 , PRTSW3 , KK 

CHARACTER NN (NROWl ) * 3 0 
REAL DD ( NROW , NCOL ) 

REAL CC (NROWl, NCOLl) 

REAL CDI (NROW2 , NCOL2 ) 

REAL XI , X2 , Y1 , Y2 , SLOPE 

SUBROUTINES REQUIRED: 

CmsS'-Ss^G^V^RE^C^C^M EFF FOR ALL DEVICES-PUT IN DD COL 20 
MAS BAL- CALC CAV CALC, CFINAL, CEQULIB, M. REM 
INPUTS : 

FROM MCALC 

I=CONTAMINANT NO. 

TN,TN1 = INCREMENT END & BEGINNING TIME (HRS) 

DD , NROW , NCOL=NAME & DIM OF MAT DD 

CC, NROWl, NCOL 1=NAME & DIM OF MAT CC 

CDI , NROW2 , NCOL2 =NAME & DIM OF MAT CDI 

LIN=NO. OF CONTAMINANTS IN MAT CDI 

LIN2 =NO . DEVICES IN MAT DD 

IMSGDN=DEVICE NO. FOR MESSAGE OUTPUT 

CAVPRD=PREDICTED CABIN CONC FOR INCREMENT (MG/CU M) 

FROM PRAFIL 

ZEROS IN MAT DD COL 17-21 
FROM CNR SUB 

CALL REM EFF SUBROUTINE & PUTS REM EFF FOR EACH DEV IN DD COL 20 
FROM MASBAL 

CAVCLC =C ALC CABIN CONT CONC (MG/CU M) 

CFINAL= FINAL INCR CABIN CONT CONC (MG/CUM) 

CEQLIB=EQUILIBRIUM CABIN CONT CONC (MG/CU M) 

OUTPUTS : 

TO MCALC 

CAVCLC =C ALC CABIN CONT CONC (MG/CU M) 

CFINAL=FINAL INCR CABIN CONT CONC (MG/CUM) 

KK=COUNTER FOR CONVERGENCE 

CEQLIB=EQUILIBRIUM CABIN CONT CONC (MG/CU M) 
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48 C 

49 C 

50 C 

51 C 

52 C 

53 C 

54 C 

55 C 

56 C 

57 C 

58 C 

59 C 

60 C 

61 C 

62 C 

63 C 

64 C 

65 C 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 C 

76 

77 C 

78 

79 

80 C 

81 
82 

83 C 

84 

85 

86 

87 

88 

89 

90 

91 

92 C 

93 C 

94 

95 C 

96 

97 C 


M. REM IS IN MAT DD COL 21 
TO PRAFIL 

NAME & SIZE OF MATRIX + FIRST AND LAST COL TO BE ZEROED 
TO CNR SUB 
I=CONT NO. 

TN, TNl=CONT INCREMENT FINAL, INIT TIME (HRS) 

DEVICE AVERAGE CONT CONC (MG/M3 ) = DD(J,22) 

DD , NROW , NCOL=NAME & DIMENSIONS OF MAT DD 
CC , NROW1 , NCOL1 =NAME & DIM OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & DIM OF MAT CDI 
LIN2=NUMBER OF DEVICES IN MAT DD 
TO MASBAL 
I 

TN, TNI 

CVOL=CABIN VOL (CU M)=DD(1,9) 

CINIT=INCR INIT CABIN CONT CONC (MG/CU M)=CC(I,1) 

CONVERGENCE ERROR (DEC) 

CNVERR=DD (1,12) 

IF (CNVERR.LT. IE-10) THEN 

OPEN ( IMSGDN, FILE= 1 CON 1 , IOSTAT=IOVAL) 

WRITE (IMSGDN, *) 'CONV ERROR<1E-10 : PROGRAM TERMINATED' 

CLOSE ( IMSGDN) 

STOP 

ENDIF 

KK=1 

DO 100 KK=1 ,20 

ZERO MAT DD COL 17-21 

CALL PRAFIL(DD, NROW, NCOL, 17,21) 

USING CAVPRD FIND REM EFF OF EACH DEV & PUT IN DD COL 20 
CALL CNRSUB ( I , TN , TNI , DD, NROW, NCOL , CC , NROWl , NCOL1 , 

+ CDI , NROW2 , NCOL2 , LIN2 ) 

FIND CAVCLC FOR THESE REMOVAL EFFICIENCIES 

CALL MASBAL ( I , TN , TNI , DD , NROW, NCOL , CC , NROWl , NCOL 1 , 

+ CAVCLC , CDI , NROW2 , NCOL2 , C FINAL , CEQLIB , LIN, LIN2 ) 

IF PRTSW3 = 1 THEN PRINT NAME & NO + CONV VALUES 
IF (PRTSW3.EQ.1) THEN 

OPEN ( IMSGDN, FILE= ' CON ' , IOSTAT=IOVAL) 

WRITE (IMSGDN, *)' PRINTOUT FOR CONVERGENCE VALUES IN CONVRG' 
WRITE (IMSGDN, 50) I,NN(I) 

050 FORMAT (IX, 'CONT NO. = \I4,2X,A) 

WRITE ( IMSGDN , * ) ' CAVPRD , CAVCLC= ' , CAVPRD , CAVCLC 
CLOSE (IMSGDN) 

ENDIF 

IF CAVCLC =CAVPRD THEN EXIT THE KK LOOP 
IF ( CAVCLC. EQ. CAVPRD) GOTO 101 
IF CAVPRD< 1 E - 1 0 THEN SKIP CONVERGENCE STEP 
IF (CAVPRD. LT. IE-10) GOTO 80 
IF CONVERGENCE IS REACHED EXIT THE KK LOOP 
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98 

99 
100 

101 C 

102 C 

103 

104 C 

105 

106 

107 

108 

109 C 

110 
111 
112 

113 

114 

115 

116 

117 C 

118 C 

119 

120 
121 

122 C 

123 

124 C 

125 

126 C 

127 

128 

129 C 

130 


IF (ABS ( (CAVPRD-CAVCLC) /CAVPRD) . LT.CNVERR) THEN 
GOTO 101 
ENDIF 

CONVERGENCE CALCULATION ROUTINE 

USE THE BISECTION METHOD FOR THE ITERATION WHERE KK=1 
080 IF (KK.EQ.l) THEN 

INITIALIZE X2 AND Y2 FOR THE NEXT ITERATION 
X2 =CAVPRD 
Y2 =CAVCLC -CAVPRD 
CAVPRD= (CAVPRD+CAVCLC) / 2 
ELSE 

USE THE NEWTON- RAPHSON METHOD FOR ITERATIONS WHERE KK>1 
X1=X2 
Y1=Y2 
X2=CAVPRD 
Y2 =CAVCLC -CAVPRD 
SLOPE= (Y2-Y1) / (X2-X1) 

CAVPRD=X2 - 0 . 9 5 * Y2 / SLOPE 
ENDIF 

SET CAV IN PRED DD(I,22) = CAV IN CALC DD(I,17) 

DO 90 J=1 , LIN2 

DD ( J, 22 ) =DD ( J, 17 ) 

090 CONTINUE 

100 CONTINUE 

END OF KK LOOP 

101 CONTINUE 


RETURN 

************ end OF SUBROUTINE CONVRG 
END 




NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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05/21/92 12:55:52 


RM/FORTRAN Coirpiler (V2.42) 

Source File: C:\RMFORT\TCC\COOXID. 


Options : 


/C 80 /L /BY 


1 C 

2 C 

3 C 

4 C 

5 C 

6 

7 

8 C 

9 C 

10 C 

11 C 

12 C 

13 C 

14 C 

15 C 

16 C 

17 C 

18 C 

19 

20 

21 C 

22 C 

23 

24 

25 

26 

27 

28 C 

29 

30 

31 

32 

33 

34 

35 C 


. SUBROUTINE COOXID , 

: , .‘KKSEi.S.E.SSK!;. . IK .S. S5XSS!. 1 ******* 

SUBROUTINE COOXID ( BEDQ , EMAX , BEDL , BEDDIA , MW, EFF ) 

REAL MW 

INPUTS : , , 

BEDQ=BED FLOW RATE (CU M/HR) 

EMAX=MAXIMUM POSSIBLE REMOVAL EFFICIENCY (DEC) 

BEDL=BED LENGTH (M) 

BEDDIA=BED DIAMETER (M) 

MW=MOLECULAR WEIGHT OF CONTAMINANT 
OUTPUTS : 

EFF=REMOVAL EFF (DEC) 

WORKS ONLY FOR CO MW=28.01 OR H2=2.02; OTHERWISE REM EFF=0 
IF ( (MW.EQ. 28. 01) .OR. (MW.EQ.2 . 02) ) THEN 

^RESIDENCE TIME <0.2 SEC THEN REM EFF DROPS LINEARLY 
RprOT _ red RESIDENCE TIME (SEC) 

B BREST= (3. 141592654/4) *BEDL*BEDDIA**2*3600/BEDQ 
IF (BREST.LT. 0.2) THEN 
EFF = EMAX * BREST / 0 . 2 
ENDIF 
ELSE 

REM EFF FOR OTHER THAN CO OR H2 = ZERO 
EFF=0 
ENDIF 

IF (EFF.LE. 0) EFF=0 

IF (EFF. GT. EMAX) EFF=EMAX 

RETURN 

?S************** END OF SUBROUTINE COOXID *********************** 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\CRIN.FO Options: /C 80 /L /BY 


05/21/92 12:55:55 


9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 C 

31 


: ****************************************************************** 

; * SUBROUTINE CRIN * 

' * SUBROUTINE TO READ STRING OF LENGTH 30 INTO MAT NN * 

; AND READ REAL DATA INTO MAT XX (ROW, COL) * 

' * RETURNS NUMBER OF LINES OF DATA READ FROM FILE * 

: ********************* ***********************^***i**************** 

; NOTE: INPUT STRING MUST HAVE SINGLE QUOTES AROUND IT 
’ NOTE: INPUT NUMBERS MUST BE SEPARATED BY BLANKS 
SUBROUTINE CRIN (NN, XX, NROW, NCOL, LIN) 

INTEGER NROW, NCOL, IOVAL, LIN 
CHARACTER NN(NROW) *30,FNAME*24 
REAL XX (NROW, NCOL) 

010 READ ( * , 1 (A) 1 ) FNAME 

OPEN ( 1 , FILE=FNAME , STATUS= • OLD 1 , IOSTAT= IOVAL ) 

IF ( IOVAL. NE.0) GOTO 900 
LIN=0 

DO 100 1=1, NROW 

L^LI 1 Nli IOSTAT=IOVM '' END=500 ' ERR=900 ’ *®II).OH(I,J),J=l,NCOL) 

100 CONTINUE 

500 WRITE ( * , ' (A) 1 ) 1 DONE WITH FILE INPUT 1 

WRITE ( * , * ) 1 1 

CLOSE (1) 

GOTO 990 

900 WRITE ( * , * ) 1 IOERROR= 1 , IOVAL 
CLOSE (1) 

WRITE (*,*) 'WHAT IS THE INPUT FILE NAME’ ' 

GOTO 10 
990 RETURN 

*************** 0F subroutine crin ************************ 

END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Coinpiler (V2.42) ^ „ rt , 

source File: C:\RMFORT\TCC\CROUT.F Options: /C 80 /L /BY 05/21/92 12:56:01 


1 C 

2 C 

3 C 

4 C 

5 C 

6 C 

7 C 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 

22 C 

23 C 

24 C 

25 C 

26 C 

27 C 

28 C 

29 C 

30 

31 

32 

33 

34 C 

35 

36 

37 C 

38 

39 

40 

41 C 

42 

43 

44 

45 

46 C 

47 


****************************************************************** 

* SUBROUTINE CROUT * 

* SUBROUTINE TO WRITE DATA TO CONSOLE, OR PRINTER * 

* WRITES STRG OF LENGTH 30 FROM MAT NN & REAL DATA FROM MAT * 

* XX (ROW, COL) STARTING WITH COL FSTCOL, AND ENDING WITH LSTCOL * 

* AND FROM LINE FSTLIN TO LINE LSTLIN * 

****************************************************************** 

SUBROUTINE CROUT (NN , XX , NROW, NCOL , FSTCOL , LSTCOL , LIN , FSTLIN , LSTLIN , 
+IMSGDN,NINC,FNAME, IDEVNO, IOVAL) 

INTEGER NROW, NCOL, IOVAL, FSTCOL, LSTCOL, LIN, FSTLIN, LSTLIN, NINC, IDEVNO, 
+ IOVAL 

CHARACTER FNAME*24 , DES* 1 
CHARACTER NN (NROW) *30 
REAL XX (NROW, NCOL) 

IF ( FSTCOL. GT. NCOL) FSTCOL=NCOL 
IF (LSTCOL. GT. NCOL) LSTCOL=NCOL 
IF ( FSTCOL. GT. LSTCOL) FSTCOL=LSTCOL 
IF (FSTLIN. GT. LIN) FSTLIN=LIN 
IF (LSTLIN. GT. LIN) LSTLIN=LIN 
IF ( FSTLIN. GT. LSTLIN) FSTLIN=LSTLIN 

010 OPEN ( IMSGDN , FILE= ’ CON’ , IOSTAT=IOVAL) 

WRITE (IMSGDN, ' (A) ' ) ' WRITE TO LPTl OR CON OR END 

CLOSE (IMSGDN) 

READ ( * , ' (A) ' ) FNAME 

QUIT IF FNAME=END 

IF (FNAME. EQ. ' END' ) GO TO 990 

IF( (FNAME. NE. 'LPTl' ) .AND. (FNAME. NE. 'CON' ) ) GOTO 10 
OPEN ( 1 , FILE=FNAME , IOSTAT=IOVAL) 

IF ( IOVAL. NE.O) GOTO 900 

WRITE (IDEVNO, 55, IOSTAT=IOVAL,ERR=900) NINC 
055 FORMAT (' INCREMENT NO. = ’,17) 

DO 110 I=FSTLIN, LSTLIN 

WRITE (1, 60, IOSTAT=IOVAL,ERR=900) I,NN(I) 

WRITE { IDEVNO , 60 , IOSTAT=IOVAL , ERR=900 ) I , NN ( I ) 

060 FORMAT ( IX, 'CONT NO. = ',I4,2X,A) 

WRITE (1,70, IOSTAT=IOVAL , ERR=9 0 0 ) ( XX ( I , J ) , J=FSTCOL , LSTCOL ) 

WRITE (IDEVNO, 70, IOSTAT=IOVAL,ERR=900) (XX(I,J) , J=FSTCOL, LSTCOL) 
070 FORMAT ( IX, 7G1 1.4) 

110 CONTINUE 

CLOSE (1) 

GOTO 990 

900 OPEN (IMSGDN, FILE= 'CON 1 ,IOSTAT= IOVAL) 

WRITE ( IMSGDN, * ) ' IOERROR= ' , IOVAL 
CLOSE (IMSGDN) 

CLOSE (1) 

CLOSE (IDEVNO) 
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48 C GOTO 10 

49 990 RETURN 


50 C 


********** END OF SUBROUTINE CROUT 

51 


END 




NUMBER 

OF 

WARNINGS 

IN 

PROGRAM UNIT: 

0 

NUMBER 

OF 

ERRORS 

IN 

PROGRAM UNIT: 

0 

NUMBER 

OF 

WARNINGS 

IN 

COMPILATION : 

0 

NUMBER 

OF 

ERRORS 

IN 

COMPILATION : 

0 
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RM/ FORTRAN Conpiler (V2.42) 

Source File: C:\RMFORT\TCC\CROUT2. Options: /C 80 /L /BY 


05/21/92 12:56:09 


1 C 

2 C 

3 C 

4 C 

5 C 

6 C 

7 C 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 
36 

37 

38 

39 

40 

41 

42 C 

43 


★★★★★★★a********************************************************** 

* SUBROUTINE CROUT2 * 

* SUBROUTINE TO WRITE DATA TO CONSOLE, OR PRINTER * 

* WRITES STRG OF LENGTH 30 FROM MAT NN & REAL DATA FROM MAT * 

* XX (ROW, COL) STARTING WITH COL FSTCOL, AND ENDING WITH LSTCOL * 

* AND FROM LINE FSTLIN TO LINE LSTLIN * 

*★★★★★★*★★★★★★*★★★*★*★★★★★★★★★**★★★★★★★*★*★★**★*★*★★*★★★******★*** 

SUBROUTINE CROUT2 (NN, XX , NROW , NCOL , FSTCOL , LSTCOL , L IN , FSTLIN, LSTLIN, 
+IMSGDN) 

INTEGER NROW, NCOL, IOVAL, FSTCOL, LSTCOL, LIN, FSTLIN, LSTLIN 
CHARACTER FNAME*24 , DES*1 
CHARACTER NN (NROW ) * 3 0 
REAL XX (NROW, NCOL) 

IF ( FSTCOL. GT. NCOL) FSTCOL=NCOL 
IF { LSTCOL. GT. NCOL) LSTCOL=NCOL 
IF ( FSTCOL. GT. LSTCOL) FSTCOL=LSTCOL 
IF ( FSTLIN. GT. LIN) FSTLIN=LIN 
IF (LSTLIN.GT. LIN) LSTLIN=LIN 
IF ( FSTLIN. GT. LSTLIN) FSTLIN=LSTLIN 


010 OPEN (IMSGDN,FILE=' CON' , IOSTAT= IOVAL) 

WRITE (IMSGDN, ' (A) ' ) ' WRITE TO LPTl OR CON OR END ' 

CLOSE (IMSGDN) 

READ ( * , ' (A) ’ ) FNAME 

QUIT IF FNAME=END 

IF ( FNAME. EQ. 'END' ) GO TO 990 

IF ( (FNAME. NE. 'LPTl ') .AND. (FNAME. NE. 'CON* ) ) GOTO 10 
OPEN ( 1 , FILE=FNAME , IOSTAT=IOVAL) 

IF ( IOVAL .NE. 0 ) GOTO 900 
DO 110 I =FSTLIN, LSTLIN 

WRITE ( 1 , 7 0 , IOSTAT= IOVAL , ERR= 900) (XX(I,J), J=FSTCOL , LSTCOL ) 

070 FORMAT ( IX, 7G1 1.4) 

110 CONTINUE 

CLOSE (1) 

GOTO 990 

900 OPEN (IMSGDN, FILE= 'CON* , IOSTAT= IOVAL ) 

WRITE ( IMSGDN, * ) ' IOERROR= ' , IOVAL 
CLOSE (IMSGDN) 

CLOSE (1) 

GOTO 10 
990 RETURN 


********** qjd 0F SUBROUTINE CROUT 




END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Corrpiler (V2.42) 

Source File: C:\RMFORT\TCC\DATOUT. Options: /C 80 /L /BY 05/21/92 12:56:16 

2 Q **************************************************************** 

2 C * SUBROUTINE DATOUT * 

3 C * SUBROUTINE TO PRINT HEADINGS AND DATA TO PRINTER, CON, OR FILE * 

£ Q **************************************************************** 

5 C NOTES: (l)FILE MUST BE OPEN BEFORE CALLING THIS SUBROUTINE 

6 C (2) IDEVNO MUST BE 6 FOR FORM FEEDS TO BE PRINTED 

7 

8 SUBROUTINE DATOUT { TN, TNI, LIN, DD, NROW, NCOL, CC , NROW1 , NCOLl , 

9 +CDI , NROW2 , NCOL2 , LIN2 , NN, PRTSW6 , PRTSW8 , PRTSW9 , 

10 + IDEVNO, NINC , IMONTH, IDAY, I YEAR, IHOUR, IMINUTE , FNAME , IOVAL, IPGCTR, 

11 +TVAL , FCPLOT, IDEVN1 , IDEVN3 , IDEVN2 ) 

12 

13 INTEGER PRTSW6 , PRTSW8 , PRTSW9 , TVAL , NINC 

14 

15 C SUBROUTINES REQUIRED: 

16 C PRCDA= PRINT OUT OF CONTAMINANT DATA 

17 C PRREMl=PRINTOUT OF RATE OF CONTAMINANT REMOVAL (MG/HR) -SHEETl 

18 C PRREM2= PRINTOUT OF RATE OF CONTAMINANT REMOVAL (MG/HR) -SHEET2 

19 C PRMASl=PRINTOUT OF SUM MASSES REMOVED BY DEVICES {MG) -SHEETl 

20 C PRMAS2= PRINTOUT OF SUM MASSES REMOVED BY DEVICES (MG) -SHEET2 

21 C PREFF= PRINTOUT OF INCREMENT END REMOVAL EFFICIENCIES 

22 

23 C INPUTS FROM MAIN PROGRAM: 

24 C TN= INCREMENT FINAL TIME (HRS) 

25 C TNI = INCREMENT INITIAL TIME (HRS) 

26 C LIN=NO. OF CONT IN MAT CC A D NN 

27 C DD , NROW , NCOL=NAME & SIZE OF MAT DD 

28 C CC , NROW1 , NCOL 1 =NAME & SIZE F MAT 

CC 

29 C CDI , NROW2 , NCOL2=NAME & SIZE OF MAT CDI 

30 C LIN2=NO. DEVICES IN MAT DD 

31 C NN=NAME OF MAT NN 

32 C NINC=TIME INCREMENT NUMBER 

33 C =0 THEN PRINT HEADINGS & DATA FOR PRECALCULATION SET UP ROUTINE 

34 C =-l THEN PRINT HEADINGS & DATA FOR FINAL ANSWERS 

35 C ELSE PRINT WITH PROPER INCREMENT NUMBER 

36 C IDEVNO=OUTPUT DEVICE NUMBER (SHOULD BE 6) 

37 C IMONTH .. IHOUR=DATE AND TIME VARIABLES 

38 C IPGCTR=PAGE COUNTER FOR SEQUENTIAL PAGE NO.'S ON ALL PAGES 

39 

40 C OUTPUT TO MAIN PROG: 

41 C I OVAL = STATU S OF IOERROR IN SUBROUTINES 

42 

43 * TEST CASE ********** 

44 * LIN=120 

45 

46 C PRINT OUT CONCENTRATION DATA 

47 CALL PRCDA(TN, TNI, LIN, CC,NROWl, NCOLl, CDI, NROW2 , NCOL2 , NN , 
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48 

49 

50 C 

51 

52 

53 

54 

55 

56 

57 

58 C 

59 

60 

61 C 

62 

63 C 

64 

65 

66 

67 C 

68 

69 

70 C 

71 

72 C 

73 

74 

75 

76 

77 C 

78 

79 

80 
81 
82 

83 

84 


+ IDEVNO , NINC , IMONTH , IDAY , I YEAR , IHOUR , IMINUTE , FNAME , IOVAL , I PGCTR , 
+ PRTSW8 , PRTSW9 , FCPLOT, IDEVN1 ) 

PRINT OUT NHB 8060.1 GROUP CONTRIBUTION VALUES (T-VALUES) 

IF ( (TVAL.EQ.l) .OR. (TVAL.EQ.2) ) THEN 

CALL GROUP (TN, TNI , LIN , CC , NROW1 , NCOL1 , CDI , NROW2 , NCOL2 , NN , 

+ IDEVNO , NINC , IMONTH , IDAY , IYEAR , IHOUR , IMINUTE , FNAME , IOVAL , 

+ I PGCTR , TVAL , IDEVN3 , PRTSW8 ) 

ENDIF 

IF (PRTSW6.EQ.1) THEN 

IF ( (PRTSW8.EQ.1) .OR. ( (PRTSW8.EQ.0) .AND. (NINC.EQ.-l) ) ) THEN 
PRINTOUT OF RATE OF CONTAMINANT REMOVAL BY DEVICES -SHEET1 
CALL PRREMl ( TN , TNI , LIN , CC , NROW1 , NCOL1 , CDI , NROW2 , NCOL2 , NN , 

+ IDEVNO , NINC , IMONTH , IDAY , IYEAR , IHOUR , IMINUTE , FNAME , IOVAL , I PGCTR ) 
DON'T PRINT SHEET 2 UNLESS NUMBER OF DEVICES IN MAT DD > 8 
IF (LIN2.GT.8) THEN 

PRINTOUT OF RATE OF CONTAMINANT REMOVAL BY DEVICES- SHEET2 
CALL PRREM2 ( TN , TNI , L IN , CC , NROWl , NCOLl , CDI , NROW2 , NCOL2 , NN , 

+ IDEVNO, NINC, IMONTH, IDAY, IYEAR, IHOUR, IMINUTE , FNAME , IOVAL , IPGCTR) 
ENDIF 

PRINTOUT OF SUM OF MASS REMOVED BY DEVICES -SHEETl 

CALL PRMAS 1 ( TN , TNI , LIN , CC , NROWl , NCOLl , CDI , NROW2 , NCOL2 , NN , 

+ IDEVNO, NINC, IMONTH, IDAY, IYEAR, IHOUR, IMINUTE, FNAME, IOVAL, IPGCTR) 
DON'T PRINT SHEET 2 UNLESS NUMBER OF DEVICES IN MAT DD > 8 
IF (LIN2 .GT. 8) THEN 

PRINTOUT OF SUM OF MASS REMOVED BY DEVICES- SHEET2 

CALL PRMAS2 ( TN , TNI , LIN , CC , NROWl , NCOLl , CDI , NROW2 , NCOL2 , NN , 

+ IDEVNO, NINC, IMONTH, IDAY, IYEAR, IHOUR, IMINUTE , FNAME , IOVAL , IPGCTR) 

ENDIF 
ENDIF 

PRINTOUT OF INCREMENT END REMOVAL EFFICIENCIES 

CALL PREFF ( TN , TNI , L IN , CC , NROWl , NCOLl , CDI , NROW2 , NCOL2 , NN , 

+ IDEVNO, NINC, IMONTH, IDAY, IYEAR, IHOUR, IMINUTE, FNAME, IOVAL, 

+ I PGCTR , PRTSW8 , PRTSW9 , IDEVN2 ) 

ENDIF 

RETURN 

END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Conpiler (V2.42) 

Source File: C:\RMFORT\TCC\GROUP.F Options: /C 80 /L /BY 05/21/92 12:56:54 


1 C 

2 C 

3 C 

4 C 

5 C 

6 C 

7 C 

8 
9 

10 

11 C 

12 C 

13 

14 

15 

16 

17 

18 C 

19 

20 
21 
22 

23 

24 

25 

26 

27 C 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


FILE GROUP 


★★★★A*********************************************************** 

* SUBROUTINE GROUP * 

* PROGRAM TO PRINT THE GROUP TOXICITY LEVELS AND T LEVEL * 

**************************************************************** 


SUBROUTINE GROUP ( TN , TNI , LIN , CC , NROWl , NCOLl , CDI , NROW2 , NCOL2 , NN , 
+ IDEVNO , NINC , IMONTH , IDAY , I YEAR , IHOUR , IMINUTE , FNAME , IOVAL , 

+ IPGCTR , TVAL , IDEVNT , PRTSW8 ) 


DIMENSION GL (3,6) 

REAL CC (NROWl, NCOLl) 

REAL CDI (NROW2 , NCOL2 ) 

REAL TLEVL 

INTEGER TVAL , PRTSW8 , NINC , IDEVNO , IDEVNT 
DETERMINE THE SUMS FOR EACH GROUP LEVEL 
DO 25 J=l, 16 
25 GL ( J) =0 . 

DO 30 1=1, LIN 

FRACT = CC (I, 4) /CDI (I, 9) 

TSTR = CDI (I, 8) 

NHB = IFIX(TSTR) 

GL(NHB) = GL (NHB) + FRACT 
30 CONTINUE 

CALCULATE THE TLEVEL OF THE ASSOCIATED GROUP LEVELS 
TLEVL = GL ( 1 ) +GL (2 ) +GL (3 ) +GL (4 ) +GL (5) +GL (9) +GL (10) +GL ( 11) + 

+ GL ( 13 ) +GL ( 14 ) +GL ( 16 ) 

IF ( (PRTSW8.EQ. 1) .OR. ( (PRTSW8.EQ.0) .AND. (NINC.EQ.-l) ) ) THEN 
WRITE (IDEVNO, *, IOSTAT=IOVAL,ERR=900) * * 

WRITE (IDEVNO, *, IOSTAT= IOVAL, ERR= 9 00) 1 ' 

WRITE (IDEVNO, * , IOSTAT=IOVAL, ERR=900) 

+' GROUP T-VALUES AS SPECIFIED IN NHB 8060. IB APPENDIX D' 

WRITE (IDEVNO, *, IOSTAT= IOVAL, ERR= 9 00) ' ' 

WRITE ( IDEVNO, * , IOSTAT= IOVAL , ERR=9 00 ) 

+• -01- -02- -03- -04- -05- -06- -07- -08- -09- 

+-10- -11- -12- -13- -14- -15- -16-’ 

WRITE ( IDEVNO, ' { /IX, 16 (F6 . 2 , IX) / ) ' , IOSTAT=IOVAL, ERR=900 ) GL(1), 
+ GL ( 2 ) , GL ( 3 ) , GL ( 4 ) , GL ( 5 ) , GL ( 6 ) , GL ( 7 ) , GL ( 8 ) , GL ( 9 ) , GL ( 1 0 ) , 

+ GL ( 11 ) , GL ( 12 ) , GL ( 13 ) , GL ( 14 ) , GL ( 15 ) ,GL (16) 

WRITE (IDEVNO, *, IOSTAT=IOVAL , ERR=900 ) ' OVERALL T- VALUE ' 

OALLT = GL ( 1 ) +GL ( 2 ) +GL ( 3 ) +GL ( 4 ) +GL ( 5 ) +GL ( 9 ) +GL (10) +GL (11)+ 

+ GL ( 13 ) +GL ( 14 ) +GL (16 ) 

WRITE (IDEVNO, ' (T4.F7.2) ' , IOSTAT=IOVAL, ERR=900) OALLT 
ENDIF 

IF (NINC.NE . -1 ) THEN 


100 


48 C ************* WRITE T-VALUE DATA TO A PLOT FILE *************** 

49 IF (TVAL.EQ.2) THEN 

50 WRITE (IDEVNT, 50 , IOSTAT=IOVAL,ERR=900) TNI , TN , TLEVL 

51 50 FORMAT (T2 , 2 (F8 . 2 , IX) , F7 . 2 ) 

52 ENDIF 

53 ENDIF 

54 GOTO 999 

55 c ********************** END OF SUBROUTINE ********************** 

56 900 WRITE ( * , * ) 'IO ERROR IN GROUP= ' , IOVAL 

57 999 RETURN 

58 END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\HEADGS. Options: /C 80 /L /BY 


05/21/92 12:56:28 


1 C 

2 C 

3 C 

4 C 

5 C 

6 

7 C 

8 
9 

10 

11 C 

12 C 

13 C 

14 C 

15 

16 

17 

18 

19 C 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


FILE :HEADGS. FOR 

★★★★★★★★★★★★★★★★★A********************************************** 

* SUBROUTINE HDG1 * 

* PROGRAM TO PRINT HEADING-DATE, TIME, FILE NAME, & PAGE NO. * 

★★★★★A********************************************************** 


NOTE .-FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 

SUBROUTINE HDG1 ( IMONTH, IDAY, IYEAR, IHOUR, IMINUTE , 
+FNAME, IPGNO, IDEVNO) 

IMONTH . . . ISECOND=TIME AND DATE NAMES 
FNAME=FILE NAME 
IPGNO=PAGE NUMBER 
IDEVNO=DEVICE NUMBER FOR OUTPUT 

CHARACTER FNAME*24 


WRITE HEADING 

IF (IPGNO . EQ. 1) THEN 

WRITE (IDEVNO, 5, IOSTAT=IOVAL,ERR=900) 

005 FORMAT (2X, ' PROGRAM VERSION 8.0 Alpha ', 5X, 1 04-10-92 ’,/ ) 
ENDIF 

WRITE (IDEVNO, 10 , IOSTAT=IOVAL, ERR=900) IMONTH, IDAY, IYEAR, 

+ IHOUR, IMINUTE, FNAME, IPGNO 

010 FORMAT (2X, 12 , ' / ' , 12 , ' / ' , 14 , 5X, 12 , ' : 1 , 12 , 5X, A, 2X, 1 PAGE ',14) 
GO TO 999 

900 WRITE (*,*) 'IO ERROR IN HDG1= ' , IOVAL 
999 RETURN 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
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32 

23 q **************************************************************** 

34 C * SUBROUTINE DATTM * 

35 C * SUBROUTINE TO READ SYSTEM DATE AND TIME FOR IBM PC OR AT * 

3g Q **************************************************************** 

37 

38 SUBROUTINE DATTM ( IMONTH, I DAY, I YEAR, IHOUR, IMINUTE , ISECOND) 

39 

40 C REQUIRED FOR IBM PROF FORTRAN 

41 INTEGER* 2 IMONTH, IDAY, IYEAR, IHOUR, IMINUTE, ISECOND, IHUNSEC 

42 

43 CALL GETDAT( I YEAR, IMONTH, IDAY) 

44 CALL GETTIM (IHOUR, IMINUTE, ISECOND, IHUNSEC) 

45 

46 RETURN 

47 END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


48 

49 C 

50 C 

51 C 

52 C 

53 C 

54 

55 C 

56 

57 

58 

59 C 

60 C 

61 C 

62 C 

63 C 

64 

65 C 

66 

67 

68 

69 

70 

71 

72 

73 


*★*★*★★★★★★***★★********★********★★★********★★*★★**★*★★*★******* 

* SUBROUTINE HDG2 * 

* PROGRAM TO PRINT HEADING-TIME INCR+INCR INIT AND FINAL JIME * 

* PRINTS TIME INCREMENT NUMBER * 

* ★★★★★★★★★★★★★★★★★★★★a****************************************** 

NOTE: FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 
SUBROUTINE HDG2 ( INCRNO, TNI ,TN, IDEVNO) 

INPUTS : 

INCRNO=TIME INCREMENT NUMBER 
TNl= INCREMENT INITIAL TIME (HRS) 

TN= INCREMENT FINAL TIME (HRS) 

IDEVNO=DEVICE NUMBER FOR OUTPUT 

WRITE HEADING 

WRITE (IDEVNO, 10 , IOSTAT=IOVAL , ERR=900 ) INCRNO, TNI , TN 
010 FORMAT (IX, 'TIME INCR * , 15 , 2X, * INITIAL TIME (HRS)= *,F8.2,2X, 

+• FINAL TIME (HRS)= 1 , F8 . 2 ) 

GO TO 999 

900 WRITE (*,*) 'IO ERROR IN HDG2= ' , IOVAL 
999 RETURN 
END 


NUMBER OF WARNINGS 
NUMBER OF ERRORS 


IN PROGRAM UNIT: 
IN PROGRAM UNIT: 


0 

0 
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74 

75 C 

76 C 

77 C 

78 C 

79 C 

80 

81 C 

82 

83 

84 

85 C 

86 C 

87 C 

88 C 

89 C 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 

101 C 

102 

103 

104 

105 

106 

107 

108 
109 


**************************************************************** 

* SUBROUTINE HDG3 * 

* PROGRAM TO PRINT HEADING-TIME INCR+INCR INIT AND FINAL TIME * 

* PRINTS PCALC OR FINAL INSTEAD OF TIME INCREMENT NUMBER * 

**************************************************************** 

NOTE: FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 
SUBROUTINE HDG3 { IFLAG, TNI , TN, IDEVNO) 

INPUTS : 

I FLAG = FLAG FOR TIME INCREMENT { 1= PCALC, 2=FINAL) 

TNI = INCREMENT INITIAL TIME (HRS) 

TN= INCREMENT FINAL TIME (HRS) 

IDEVNO=DEVICE NUMBER FOR OUTPUT 

CHARACTER I NAME *5 

IF (IFLAG. EQ.l) THEN 
INAME= ' PCALC ' 

ELSEIF (IFLAG.EQ.2) THEN 
INAME= ' FINAL 1 
ELSE 

INAME=' ERROR' 

END IF 

WRITE HEADING 

WRITE ( IDEVNO, 10 , IOSTAT=IOVAL , ERR=900 ) INAME, TNI , TO 
010 FORMAT (IX, 'TIME INCR ', A, 2 X, ' INITIAL TIME (HRS)= ',F8.2,2X, 

+' FINAL TIME (HRS)= ',F8.2) 

GO TO 999 

900 WRITE (*,*) 'IO ERROR IN HDG3= ' , IOVAL 
999 RETURN 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
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* 


111 c 

112 C 

113 C 

114 C 

115 C 

116 

117 C 

118 

119 

120 

121 C 

122 C 

123 

124 C 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 


***************** 

* SUBROUTINE HDG4 

* PROGRAM TO PRINT HEADING-CONT NO. 

* MAC, EXCEEDS MAC 


NAME, FINAL CABIN CONC 




NOTE: FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 
SUBROUTINE HDG4 { IDEVNO) 

INPUTS : 

IDEVNO=DEVICE NUMBER FOR OUTPUT 


WRITE HEADING 

WRITE ( IDEVNO, 10 , IOSTAT=IOVAL, ERR=900 ) 

010 FORMAT (IX, 'CONT' , 14X, 'NAME' , 14X, 1 FINAL CABIN' , 5X, 'MAC ,5 , 

+ 1 EXCEEDS 1 ) 

WRITE ( IDEVNO, 20 , IOSTAT=IOERR, ERR=900 ) 

020 FORMAT ( IX, ' NO. ' , 32X, ' CONC (MG/M3 ) 1 , 12X, MAC ') 

GO TO 999 

900 WRITE (*,*) 'IO ERROR IN HDG4= ' , IOVAL 
999 RETURN 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


135 

136 C 

137 C 

138 C 

139 C 

140 C 

141 

142 C 

143 

144 

145 

146 C 

147 C 

148 

149 C 

150 

151 

152 

153 

154 

155 


**************************************************************** # 
* PROGRAM^INT HEADING-TOTAL CONT REMOVED BY EACH DEV (MG) * 


NOTE: FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 
SUBROUTINE HDG5 ( IDEVNO) 


INPUTS : 

IDEVNO=DEVICE NUMBER FOR OUTPUT 


010 


020 


WRITE HEADING 

WRITE (IDEVNO, 10 , IOSTAT= IOVAL, ERR=900) 

FORMAT (IX, 2 4X, 'TOTAL CONTAMINANT MASS REMOVED 
+ SHEET 1 ' ) 

WRITE ( IDEVNO , 2 0 , IOSTAT= IOVAL , ERR=9 0 0 ) 

FORMAT (IX, 1 NO. ' ,14X, 'NAME' ,16X, 'CABIN' ,9X, 'LEAK' ,8X, 
+8X, ' DEV4 ' ,8X, ' DEV5 ' ,8X, ' DEV6 ' ,8X, ' DEV7 ' ,8X, ' DEV8 ' ) 


BY EACH DEVICE (MG) 


1 DEV3 1 


156 

157 

158 

159 

160 

NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 

161 

162 C **************************************************************** 

163 C * SUBROUTINE HDG6 * 

164 C * PROGRAM TO PRINT HEADING-TOTAL CONT REMOVED BY EACH DEV (MG) * 

165 C * PRINTS SHEET 2-NO, NAME, & DEV9..DEV15 * 

166 C **************************************************************** 

167 

168 C NOTE: FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 

169 

170 SUBROUTINE HDG6 ( IDEVNO) 

171 

172 C INPUTS: 

173 C IDEVNO=DEVICE NUMBER FOR OUTPUT 

174 

175 C WRITE HEADING 

176 WRITE (IDEVNO, 10 , IOSTAT=IOVAL, ERR=900 ) 

177 010 FORMAT ( IX, 24X, 'TOTAL CONTAMINANT MASS REMOVED BY EACH DEVICE (MG) 

178 + SHEET 2 1 ) 

179 WRITE (IDEVNO, 20, IOSTAT=IOERR, ERR=900 ) 

180 020 FORMAT ( IX, ' NO. ' , 14X, ’NAME' , 16X, ' DEV9 * , 8X, ' DEV10 ' , 7X, ' DEV11 • , 

181 +7X, ' DEV12 ' , 7X, ' DEVI 3 ' , 7X, ' DEVI 4 ' , 7X, ' DEV15 1 ) 

182 

183 GO TO 999 

184 900 WRITE (*,*) 'IO ERROR IN HDG6= ' , IOVAL 

185 999 RETURN 

186 END 

NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 

187 

188 C **************************************************************** 

189 C * SUBROUTINE HDG7 * 

190 C * PROGRAM TO PRINT HEADING -DEVICE REM EFF AT END OF TIME INCR * 

191 C * PRINTS NO. , NAME, #2. .#12 * 

192 C **************************************************************** 

193 

194 C NOTE: FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 

195 

196 SUBROUTINE HDG7 (IDEVNO) 

197 


GO TO 999 

900 WRITE (*,*) ' IO ERROR IN HDG5= IOVAL 
999 RETURN 
END 
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198 C 

199 C 

200 

201 C 

202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 
213 


INPUTS : 

IDEVNO=DEVICE NUMBER FOR OUTPUT 


WRITE HEADING 

WRITE (IDEVNO, 10 , IOSTAT=IOVAL , ERR=900 ) 

010 FORMAT (IX, 2 4X, 'DEVICE REMOVAL EFFICIENCY AT END OF TIME INCREMENT 

+ (DEC)') 

WRITE (IDEVNO, 20, IOSTAT=IOERR, ERR=900) 

020 FORMAT (IX, ' NO. 1 , 14X, 'NAME' , 15X, '#2',4X, '#3', 

+4X, '#4' ,4X, '#5' ,4X, '#6' ,4X, '#7' ,4X, '#8' ,4X, '#9' ,3X, #10 , 

+3X, '#11' ,3X, '#12' ,3X, '#13' ,3X, '#14' ,3X, '#15' ) 


GO TO 999 

900 WRITE ( * , * ) 1 IO ERROR IN HDG7 = ' , IOVAL 
999 RETURN 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 


214 

215 C 

216 C 

217 C 

218 C 

219 C 

220 

221 C 

222 

223 

224 

225 C 

226 C 

227 

228 C 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 


**************************************************************** 

* SUBROUTINE HDG8 <w „. * 

* PROGRAM TO PRINT HEADING-RATE OF CONT REMOVAL-EACH DEV .(MG) 

* PRINTS SHEET 1 -NO, NAME , CABIN, LEAK, &DEV3 .. DEV8 t 

**************************************************************** 


NOTE: FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 
SUBROUTINE HDG8 ( IDEVNO) 


INPUTS : 

IDEVNO=DEVICE NUMBER FOR OUTPUT 


WRITE HEADING 

WRITE ( IDEVNO, 10 , IOSTAT= IOVAL, ERR=900 ) 

010 FORMAT ( IX, 24X, 'RATE OF CONTAMINANT REMOVAL-EACH DEVICE (MG/HR) 
+ SHEET 1 ' ) 

WRITE (IDEVNO, 20 , IOSTAT=IOVAL, ERR=900) 

020 FORMAT ( IX, ' NO. ', 14X, ' NAME ', 16X, 'CABIN' , 9X, ' LEAK 1 , 8X, ' DEV3 , 
+8X, ' DEV4 ' ,8X, ' DEV5 ' , 8X, 'DEV6' ,8X, ‘ DEV7 ' , 8X , 'DEV8' ) 


GO TO 999 

900 WRITE (*,*) 'IO ERROR IN HDG8= ', IOVAL 
999 RETURN 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
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240 

241 C 

242 C 

243 C 

244 C 

245 C 

246 

247 C 

248 

249 

250 

251 C 

252 C 

253 

254 C 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

NUMBER 

NUMBER 

NUMBER 

NUMBER 


******************************* ********************************* 

* SUBROUTINE HDG9 * 

* PROGRAM TO PRINT HEADING-RATE OF CONT REMOVAL-EACH DEV (MG/HR)* 

* PRINTS SHEET 2 -NO, NAME, & DEV9..DEV15 * 

************************* llt ** t * ttjltl<t * tJl * ttJ , J , (i]lttttJ|jttJlJiitlltt4i4 


NOTE: FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 
SUBROUTINE HDG9 ( IDEVNO) 

INPUTS : 

IDEVNO=DEVICE NUMBER FOR OUTPUT 
WRITE HEADING 

WRITE (IDEVNO, 10, IOSTAT=IOVAL, ERR=900 ) 

010 FORMAT (IX, 24X, 'RATE OF CONTAMINANT REMOVAL-EACH DEVICE (MG/HR) 
+ SHEET 2 ' ) 

WRITE ( IDEVNO ,20, IOSTAT= IOERR , ERR=9 00 ) 

020 FORMAT (IX, ' NO. ' , 14X, 'NAME ' , 16X, ' DEV9 1 , 8X, ' DEV10 ' , 7X, 1 DEV11 ' 
+7X, ' DEV12 ' , 7X, 1 DEVI 3 ’ , 7X, ' DEV14 ' ,7X, ' DEVI 5 ' ) 

GO TO 999 

900 WRITE ( * , * ) 'IO ERROR IN HDG9= ' , IOVAL 
999 RETURN 
END 


OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 
OF WARNINGS IN COMPILATION : 0 
OF ERRORS IN COMPILATION : 0 
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05/21/92 12:56:50 


RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\LDIGEN. Options: /C 80 /L /BY 


1 C 

2 C 

3 C 

4 C 

5 C 

6 

7 

8 
9 

10 

11 C 

12 C 

13 C 

14 C 

15 C 

16 C 

17 C 

18 C 

19 

20 
21 
22 

23 

24 

25 C 

26 




1 & 


* SUBROUTINE LDIGEN 

* SUBROUTINE TO LOAD INTERNAL GENERATION FROM MAT CDI COL 

* COL 10-22 INTO MAT DD COL 19 
********************************************************* 


SUBROUTINE LDIGEN ( I , DD , NROW , NCOL , CDI , NROW2 , NCOL2 , LIN2 ) 
INTEGER NROW , NCOL , NROW2 , NCOL2 , LIN2 
REAL DD (NROW, NCOL) 

REAL CDI (NROW2 , NCOL2 ) 


INPUTS : 

I=CONTAMINANT NUMBER 

DD , NROW , NCOL=NAME AND DIMENSIONS OF MAT DD 
CDI , NROW2 , NCOL2 =NAME AND DIMENSIONS OF MAT CDI 
LIN2 ^NUMBER OF DEVICES IN MAT DD 
OUTPUT 

LOADS INTERNAL GENERATION FROM MAT CDI INTO MAT DD COL 19 


DD (1,19) =CDI (1,1) 

DD(2 , 19) =0 
DO 10 J=3 , LIN2 

DD( J, 19) =CDI (I, J+7) 

010 CONTINUE 
RETURN 

************ end OF SUBROUTINE LDIGEN 
END 




NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Conpiler (V2.42) 

Source File: C:\RMFORT\TCC\LODEFF. Options: /C 80 /L /BY 


05/21/92 12:57:05 


1 C 

2 C 

3 C 

4 C 

5 C 

6 

7 

8 
9 

10 

11 C 

12 C 

13 C 

14 C 

15 C 

16 

17 

18 

19 

20 
21 
22 

23 

24 C 

25 






* SUBROUTINE LODEFF * 

* SUBROUTINE TO LOAD LAST INCR EFF FROM MAT CC INTO MAT DD COL 20* 

* USES ADJUSTABLE SIZE ARRAYS * 

****************************************************************** 


SUBROUTINE LODEFF ( I , DD,NROW,NCOL, CC, NROWl , NCOL 1 , LIN2 ) 
INTEGER NROW, NCOL , NROWl , NCOL1 
REAL DD (NROW, NCOL) 

REAL CC (NROWl, NCOL1) 


INPUTS : 

I =CONTAMINANT LINE NUMBER IN MAT CC 
DD , NROW , NCOL=NAME & DIMENSIONS OF MAT DD 
CC, NROWl, NCOL 1=NAME & DIMENSIONS OF MAT CC 
LIN2=NO. OF DEVICES IN MAT DD 

DD(1,20) =0 
K=7 

DO 100 J=2 , LIN2 
DD ( J , 2 0 ) =CC ( I , K ) 

K=K+3 
100 CONTINUE 
RETURN 

************* END OF SUBROUTINE LODEFF ************************* 
END 


NUMBER OF 
NUMBER OF 
NUMBER OF 
NUMBER OF 


WARNINGS IN 
ERRORS IN 
WARNINGS IN 
ERRORS IN 


PROGRAM UNIT: 
PROGRAM UNIT: 
COMPILATION : 
COMPILATION : 


0 

0 

0 

0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\MASBAL. Options: /C 80 /L /BY 05/21/92 12:57:51 

^ Q ******★***★*★***★★*★★★★*****★*★★****★★★*★***★*★★★★*★★★★********* 

2 C * MASS BALANCE SUBROUTINE-MASBAL * 

3 C * FOR 1 CONT AT A TIME AT A GIVEN DEVICE EFFICIENCY CALCULATES * 

4 C * CAV, CFINAL, CEQ,M. REMOVED (ALL DEV+CABIN) -DATA PUT IN MAT DD * 

^ Q **************************************************************** 

6 C NOTE: BEFORE RUNNING THIS SUBROUTINE MUST ZERO MAT DD COL 17-21 

7 C (DONE BY PRAFIL) & LOAD REM EFF FOR EACH DEVICE INTO 

8 C MAT DD COL 20 (DONE BY LODEFF OR CNRSUB) 

9 

10 SUBROUTINE MASBAL ( I , TN , TNI , DD , NROW, NCOL , CC , NROWl , NCOL1 , 

11 +CAVCLC , CDI , NROW2 , NCOL2 , CFINAL, CEQLIB, LIN, LIN2 ) 

12 INTEGER NROW, NCOL, NROWl , NCOL 1 , NROW2 , NCOL 2 

13 REAL DD ( NROW , NCOL ) 

14 REAL CC (NROWl, NCOL 1) 

15 REAL CDI (NROW2 ,NCOL2 ) 

16 C 

17 C SUBROUTINES REQUIRED: 

18 C CALCM- CALCULATE CIN,COUT,M.REM, SUM MASS REM- IN MAT DD 

19 C LD I GEN- LOAD INTERNAL M.GEN FOR DEVICE + CABIN FROM CDI INTO DD COL 19 

20 C PCAVCF-USING CEQ & CINIT, CALC CFINAL & CAVERAGE 

21 

22 C INPUTS: 

23 C FROM PCSET, PREDCT , AND CONVRG 

24 C I=CONTAMINANT NO. 

25 C TN = INCREMENT END TIME (HRS); TNI=INCR BEGINNING TIME HRS 

26 C DD , NROW , NCOL=NAME AND SIZE OF MAT DD 

27 C CC, NROWl, NCOLl=NAME AND SIZE OF MAT CC 

28 C CDI , NROW2 , NCOL2 =NAME AND SIZE OF MAT CDI 

29 C LIN=NO . OF CONT IN MAT CDI 

30 C LIN2=NO. OF DEVICES IN MAT DD 

31 C FROM CALCM 

32 C SMREM=SUM OF MASS REM FOR ALL DEVICES (MG /HR) -TOTAL OF DD COL 21 

33 C SMGEN=SUM OF MASS GEN IN ALL DEVICES INCL CABIN (MG/HR) -DD COL 19 

34 C FROM LDIGEN 

35 C IT LOADS CABIN M.GEN (MG/HR) FROM MAT CDI INTO DD(1,19) 

36 C IT LOADS M.GEN DEVICES FROM MAT CDI COL 2-15,19 INTO DD COL 19 

37 C FROM PCAVCF 

38 C CAVCLC CALC INCR CABIN CONT CONC (MG/CU M) 

39 C CFINAL=FINAL INCR CABIN CONT CONC (MG/CU M) 

40 C OUTPUTS: 

41 C TO PCSET, PREDCT, AND CONVRG 

42 C CAVCLC CALCULATED CABIN AVERAGE CONC (MG/CU M) 

43 C CEQLIBCABIN EQUILIBRIUM CONCENTRATION (MG/CU M) 

44 C CF INAL = INCREMENT FINAL CABIN CONCENTRATION (MG/CU M) 

45 C PUTS M. REM FOR CABIN + DEVICES IN MAT DD COL 21 

46 C TO CALCM 

47 C CAVCABIN CONT CONC (MG/CU M) 
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48 C 

49 C 

50 C 

51 C 

52 C 

53 C 

54 C 

55 C 

56 C 

57 C 

58 C 

59 C 

60 C 

61 C 

62 

63 C 

64 

65 C 

66 

67 

68 C 

69 C 

70 C 

71 C 

72 C 

73 C 

74 C 

75 

76 

77 

78 

79 C 

80 
81 

82 C 

83 C 

84 

85 C 

86 C 

87 C 

88 C 

89 C 

90 

91 C 

92 C 

93 

94 

95 C 

96 C 

97 C 


DD(1, 19) =50 (CABIN M. GEN) 

OTHER DEVICES DD(2-15,19) MUST =0 AT THIS POINT (SEE PRAFIL) 
TO LDIGEN 

I =CONTAM INANT NUMBER 

DD , NROW , NCOL=NAME AND DIMENSIONS OF MAT DD 
CDI , NROW2 , NCOL2 =NAME AND DIMENSIONS OF MAT CDI 
LIN2 =NUMBER OF DEVICES IN MAT DD 
TO PCAVCF 
TN, TNI 

CINIT= INITIAL INCR CABIN CONT CONC (MG/CU M)=CC(I,1) 
CEQLIB=CABIN EQULIB CONC (MG/CU M) 

SQEFFN=SUM OF Q*REM EFF NET FOR ALL DEVICES (CU M/HR) 
CVOL=CABIN VOL (CU M)=DD(1,9) 

SMNTC=SUM OF MASS NET TO CABIN (MG/HR) 

CABIN VOL (CU M) 

CVOL=DD (1,9) 

CINITIAL (MG/CU M) 

CINIT=CC (1,1) 

EVALUATE SUM Q*REM EFF NET USING M.GEN IN DEVICES=0 (DD COL 19) 
SET CABIN AVERAGE CONCENTRATION = TO ARBITRARY VALUE OF 100 
AND INTERNAL GENERATION IN DEVICES =0 (NOT YET LOADED) 

SET CABIN M . GEN=ARBITRARY VALUE OF 50 (DD(1,19)) 

SMGEN=SUM M.GEN IN ALL DEVICES +CABIN (MG/HR) 

SMREM=SUM M. REMOVED BY ALL DEVICES (MG/HR) 

CAV=CABIN AVERAGE CONCENTRATION (MG/CU M) 

CAV=100 
DD(1, 19) =50 

CALL CALCM ( DD , NROW , NCOL , CAV , SMGEN , SMREM , TN , LIN2 ) 

SQEFFN=SUM OF Q* REMOVAL EFF NET (MG/HR) 

SQEFFN= SMREM/ CAV 


LOAD INTERNAL GENERATION FOR ALL DEV+CABIN FROM CDI INTO DD COL 19 
CALL LDIGEN ( I , DD , NROW, NCOL , CDI , NROW2 , NCOL2 , LIN2 ) 

EVALUATE SUM OF M.NET TO CABIN=M.GEN CABIN+SUM M.GEN ALL DEVICES 
SUM M.REM ALL DEVICES 

SMNTC=SUM M.NET TO CAB IN = AMT GEN WHICH GETS TO THE CABIN DIRECTLY 

SET C CABIN AV=0 

CAV=0 

GET SUM MASS GEN CABIN+ INTERNAL DEVICES AND SUM MASS REMOVED ALL 
DEVICES FROM SUBROUTINE- SINCE CABIN C=0 NO CABIN CONT WILL BE REM 
CALL CALCM ( DD , NROW, NCOL , CAV, SMGEN , SMREM, TN , LIN2 ) 

SMNTC=SMGEN- SMREM 

NOTEjSMNTC IS ALSO PUT IN DD(1,21) BY CALCM 
GET CALCULATED CABIN EQUILIBRIUM CONCENTRATION (CAVCLC) (MG/CU M) 
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98 

99 C 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 C 

111 
112 

113 

114 C 

115 C 

116 

117 

118 C 

119 

120 C 

121 C 

122 

NUMBER 

NUMBER 

NUMBER 

NUMBER 


IF (SQEFFN.LT. IE- 10) THEN 
IF (CVOL.EQ.O) THEN 
CFINAL=1E10 
ELSE 

CFINAL=CINIT+ (TN-TN1) *SMGEN/CVOL 
ENDIF 

CAVCLC= (CINIT+CFINAL) /2 
CEQLIB=1E10 
ELSE 

CEQLIB=SMNTC/SQEFFN 

CALCULATE CAVCLC AND CFINAL FROM SUBROUTINE 
CALL PCAVCF (TN, TNI , CEQLIB, SQEFFN, CVOL, SMNTC, CINIT , 

+ CAVCLC, CFINAL) 

ENDIF 

USING CAV CALC EVALUATE M.REM FOR CABIN + DEVICES AND PUT 
IN MAT DD COL 21 
CAV = CAVCLC 

CALL CALCM ( DD , NROW , NCOL , CAV , SMGEN , SMREM ,TN, LIN2 ) 


RETURN 

END OF SUBROUTINE MASBAL 
************** end OF SUBROUTINE 
END 


MASBAL ************************** 


OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 
OF WARNINGS IN COMPILATION : 0 
OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Corrpiler (V2.42) „ crt 

Source File: C:\RMFORT\TCC\MCALC.F Options: /C 80 /L /BY 05/21/92 12:57:59 


1 C 

2 C 

3 C 

4 C 

5 C 

6 C 

7 C 

8 C 

9 

10 

11 

12 

13 

14 

15 

16 

17 C 

18 C 

19 C 

20 C 

21 C 

22 C 

23 C 

24 C 

25 C 

26 C 

27 C 

28 C 

29 C 

30 C 

31 C 

32 C 

33 C 

34 C 

35 C 

36 C 

37 C 

38 C 

39 C 

40 C 

41 C 

42 C 

43 C 

44 C 

45 C 

46 C 

47 C 


***************************************************************** 

* SUBROUTINE MCALC * 

* MAIN CALCULATION LOOP SUBROUTINE FOR 1 TIME INCREMENT * 

* FOR ALL CONTAMINANTS ONE AT A TIME * 

* BASED ON SUM MASS REM LAST INCR, FOR EACH CONT * 

* CALCULATE NEW REMOVAL EFF, CAV CALC CABIN, * 

* CEQUILIB, CFINAL, & M. REMOVED ALL DEVICES-PUT IN MAT CC * 

★★★★★★★★★★a****************************************************** 

SUBROUTINE MCALC ( I , TN , TNI , DD , NROW , NCOL , 

+CC , NROW1 , NCOLl , CDI , NROW2 , NCOL2 , NN, LIN, LIN2 , 

+PRTSW2 , PRTSW3 , PRTSW4 , IMSGDN) 

INTEGER NROW, NCOL , NROWl , NCOLl , NROW2 , NCOL2 , PRTSW2 , PRTSW3 , PRTSW4 , KK 
CHARACTER NN ( NROWl ) * 3 0 
REAL DD (NROW, NCOL) 

REAL CC( NROWl, NCOLl) 

REAL CDI (NROW2 , NCOL2 ) 

SUBROUTINES REQUIRED: 

PREDCT= PREDICT CAV BASED ON M. GEN OF THIS INCR & REM EFF OF LST INC 
CONVRG=CALC CAV CALC ,CEQ, CFINAL, M. REM, REM EFF 
CROUT=PRINT TEST VALUES OF MAT CC 
RROUT= PRINT TEST VALUES OF MAT DD 

INPUTS : 

FROM MAIN PROG 

I = CONTAMINANT NO. 

TN, TNI = INCREMENT END & BEGINNING TIME (HRS) 

DD , NROW , NCOL=NAME & DIM OF MAT DD 
CC, NROWl, NCOL 1=NAME & DIM OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & DIM OF MAT CDI 
NN=NAME OF MAT NN 

LIN=NUMBER OF CONTAMINANTS IN MAT NN & CDI 
LIN2 =NO . DEVICES IN MAT DD 
FROM PREDCT 

CAVPRD=PRED CABIN CONT CONC (MG/CU M) 

FROM CONVRG 

CAVCLC =C ALC CABIN CONT CONC (MG/CU M) 

CFINAL=FINAL INCR CABIN CONT CONC (MG/CUM) 

KK=COUNTER FOR CONVERGENCE 

CEQLIB=EQUILIBRIUM CABIN CONT CONC (MG/CU M) 

IMSGDN=DEVICE NO FOR MESSAGE AND TEXT PRINTOUT OUTPUT 
OUTPUTS : 

TO PREDCT 

I=CONTAMINANT NO. 

TN, TNI = INCREMENT END & BEGINNING TIME (HRS) 

DD , NROW, NCOL=NAME & DIM OF MAT DD 
CC, NROWl, NCOLl =NAME & DIM OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & DIM OF MAT CDI 
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48 C 

49 C 

50 C 

51 C 

52 C 

53 C 

54 C 

55 C 

56 C 

57 C 

58 C 

59 C 

60 C 

61 C 

62 C 

63 C 

64 C 

65 C 

66 C 

67 

68 C 

69 C 

70 

71 

72 

73 C 

74 C 

75 

76 

77 

78 C 

79 C 

80 
81 

82 C 

83 C 

84 

85 C 

86 

87 C 

88 C 

89 

90 

91 C 

92 

93 C 

94 

95 C 

96 C 

97 


LIN=NO . OF CONTAMINANTS IN MAT CDI 
LIN2 =NO . DEVICES IN MAT DD 
TO CONVRG 

I =CONTAM INANT NO. 

TN, TNI = INCREMENT END & BEGINNING TIME (HRS) 

DD , NROW , NCOL=NAME & DIM OF MAT DD 
CC , NROWl , NCOLl =NAME & DIM OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & DIM OF MAT CDI 
LIN=NO . OF CONTAMINANTS IN MAT CDI 
LIN2 =NO. DEVICES IN MAT DD 

CAVPRD=PREDICTED CABIN CONC FOR INCREMENT (MG/CU M) 

TO MAT CC 

PUTS CAVCLC , CEQLIV , &CFINAL IN CC (1,2-3 &4) 

PUTS REM EFF FROM DD COL20 IN CC (1,7-10-13 ETC) 

PUTS M.REM FOR EACH DEV FROM DD COL21 IN CC (I, 6-9-12 ETC) 
PUTS SUM MASS REM FOR EACH DEV IN CC (I, 8-11-14 ETC) 


BEGIN LOOP FOR EACH CONTAMINANT FOR EACH TIME INCREMENT 
DO 100 1=1, LIN 

CALC CAV PRED CABIN FOR CONT BASED ON REM EFF OF LAST INCREMENT 
AND GENERATION RATES OF THIS INCREMENT 
CALL PREDCT ( I , TN , TNI , CAVPRD , DD , NROW, NCOL , 

+CC , NROWl , NCOLl , CDI , NROW2 , NCOL2 , CAVCLC , CFINAL , CEQLIB , LIN , LIN2 , NN) 


CONVERGE UNTIL CCALC=CPRED 

CALL CONVRG ( I , TN , TNI , CAVPRD , DD , NROW, NCOL , 

+CC , NROWl , NCOLl , CDI , NROW2 , NCOL2 , CAVCLC , CFINAL , CEQLIB , KK , LIN , 

+LIN2 ,NN, PRTSW3 , IMSGDN) 

IF KK>20 THEN BEGIN 1/20 TIME INCREMENT CONVERGENCE ROUTINE 
IF (KK.GT.20) THEN 
KK=1 

BEGIN 1/10 INCREMENT CONVERGENCE ROUTINE 
NEW INCREMENT INITIAL TIME (HRS) 

TN1NEW=TN1 

NEW TIME INCREMENT (HRS) 

BINEW= (TN-TN1 ) /20 

BEGIN LOOP FOR 1/20 INCREMENT SIZE TIME INCREMENT 
NEW INCREMENT FINAL TIME (HRS) 

200 TNNEW=TNlNEW+BINEW 

ZERO MAT DD COL 17-21 
CALL PRAFIL(DD,NROW, NCOL, 17,21) 

LOAD EFFICIENCY FROM LAST INCREMENT INTO MAT DD COL 20 
CALL LODEFF ( I , DD , NROW , NCOL , CC , NROWl , NCOLl , LIN2 ) 

CALC CAV PRED CABIN FOR CONT BASED ON REM EFF OF LAST INCREMENT 

AND GENERATION RATES OF THIS INCREMENT 

CALL PREDCT ( I , TNNEW , TNlNEW , CAVPRD , DD , NROW , NCOL , 
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98 + 

99 + 

100 C 

101 C 

102 

103 + 

104 + 


105 C 

106 C 

107 

108 

109 

110 
111 

112 050 

113 + 

114 

115 

116 

117 C 

118 C 

119 

120 
121 

122 C 

123 

124 

125 

126 

127 102 

128 

129 C 

130 

131 C 

132 

133 

134 

135 

136 103 

137 

138 C 

139 C 

140 

141 

142 

143 

144 104 

145 C 

146 C 

147 


CC , NROWl , NCOL1 , CDI , NROW2 , NCOL2 , CAVCLC , CFINAL , CEQLIB , LIN , 
LIN2,NN) 

CONVERGE UNTIL CCALC=CPRED 

CALL CONVRG ( I , TNNEW , TN1NEW , CAVPRD , DD , NRCW , NCOL , 

CC , NROW1 , NCOLl , CDI , NROW2 , NCOL2 , CAVCLC , CFINAL , CEQLIB , KK , LIN , 
LIN2 ,NN, PRTSW3 , IMSGDN) 

IF KK>20 THEN PRINT CONVERGENCE WARNING 
IF (KK.GT.20) THEN 

OPEN ( IMSGDN, FILE= 1 CON ' , IOSTAT=IOVAL) 

WRITE ( IMSGDN, *) 'WARNING: CALCULATION DID NOT CONVERGE FOR' 
WRITE (IMSGDN, *) ' FULL AND 1/20 INCREMENT ROUTINES' 

WRITE (IMSGDN, 50) I , NN ( I ) , TN1NEW, TNNEW 
FORMAT (IX, 'CONT NO.= ' , 14 , 2X, A, / , IX, 

' FOR INCREMENT INIT & FINAL TIMES= ' , F8 . 2 , F8 . 2 ) 

CLOSE (IMSGDN) 

ENDIF 

FILL MAT CC WITH RESULTS 
PUT CAVCLC, CEQLIB, AND CFINAL IN CC 
CC (1,2) =CAVCLC 
CC ( I , 3 ) =CEQLIB 
CC (1,4) =CFINAL 

PUT REM EFF FROM LAST ITER DD COL 20 IN CC ( I , 7-10-13ETC) 

K=7 

DO 102 J=2 , LIN2 
CC ( I , K) =DD ( J, 20) 

K=K+3 

CONTINUE 

TAKE CABIN M. REM (MG/HR) FROM DD(1,21) & PUT IN MAT CC(I,5) 

CC (1,5) =DD (1,21) 

TAKE M. REM FROM DD COL 21 & PUT IN CC (I, 8-11-14ETC) 

K=8 

DO 103 J=2 , LIN2 
CC (I , K) =DD( J, 21) 

K=K+3 

CONTINUE 

CALCULATE SUM OF MASS REMOVED IN DEVICES + CABIN TO DATE AND 
PUT IN CC (I , 6- 9 -12 ETC) 

K=5 

DO 104 J=1,LIN2 

CC ( I , K+l ) =CC ( I , K+l ) +CC ( I , K) * (TNNEW-TN1NEW) 

K=K+3 

CONTINUE 

IF PRTSW2=1 THEN PRINT MAT CC INFO FOR THIS CONTAMINANT 
IF (PRTSW2.EQ.1) THEN 
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148 

149 

150 

151 

152 

153 

154 

155 

156 C 

157 

158 C 

159 C 

160 C 

161 C 

162 

163 

164 C 

165 

166 

167 

168 

169 C 

170 

171 

172 

173 C 

174 C 

175 

176 

177 C 

178 C 

179 

180 
181 

182 C 

183 

184 

185 

186 

187 302 

188 

189 C 

190 

191 C 

192 

193 

194 

195 

196 303 

197 


OPEN ( IMSGDN , FILE= ' CON ' , IOSTAT=IOVAL ) 

WRITE ( IMSGDN, *) 'NINC,TN,TN1 • , NINC , TN , TNI 
WRITE ( IMSGDN, *) 'PRINTOUT FOR ONE CONT INSIDE 1/20 INCR 
+ LOOP OF MCALC 1 

WRITE ( IMSGDN, *) 'INFO FROM MAT CC ' 

CLOSE (IMSGDN) 

CALL CROUT (NN, CC , NROWl , NCOLl , 1 , NCOLl , LIN, 1,1, IMSGDN) 
ENDIF 


REPEAT LOOP FOR 1/20 INCREMENT IF END OF 1/20 INCREMENT TIME 
(TNNEW) IS < THAN END OF LARGER TIME INCR (TN) 

ELSE IF TNNEW>=TN, END 1/20 ENCR CONV & PRINT ANSWERS+REPEAT 
FOR ANOTHER CONTAMINANT 

IF (TNNEW. LT.TN) THEN 

RESET FOR ANOTHER 1/20 TIME INCREMENT 

TNlNEW=TNNEW 

CC ( I , 1 ) =CC ( I , 4 ) 

GO TO 200 
ELSE 

END 1/10 INCR CONV ROUTINE-REPEAT FOR ANOTHER CONT 
GOTO 100 
ENDIF 


END OF CONVERGENCE ROUTINE 
ENDIF 

CALC SUM MASS REMOVED & FILL MAT CC WITH RESULTS 
PUT CAVCLC , CEQLIB, AND CFINAL IN CC 
CC ( I , 2 ) = CAVCLC 
CC (1,3) =CEQLIB 
CC ( I , 4 ) =CFINAL 

PUT REM EFF FROM LAST ITER DD COL 20 IN CC ( I , 7-10- 13ETC) 
K=7 

DO 302 J=2 , LIN2 
CC (I, K) =DD( J, 20) 

K=K+3 

CONTINUE 


TAKE CABIN M. REM (MG/HR) FROM DD(1,21) & PUT IN MAT CC(I,5) 
CC (1,5) =DD (1,21) 

TAKE M. REM FROM DD COL 21 & PUT IN CC ( I , 8-11-14ETC ) 

K=8 

DO 303 J=2 , LIN2 
CC ( I , K ) =DD ( J , 2 1 ) 

K=K+3 

CONTINUE 
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198 C 

199 C 

200 
201 
202 

203 

204 

205 C 

206 

207 C 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 C 

220 C 

221 C 

222 

223 

224 C 

225 


CALCULATE SUM OF MASS REMOVED IN DEVICES + CABIN TO DATE AND PUT 
IN CC (I, 6-9-12ETC) 

K=5 

DO 304 J=1 , LIN2 

CC ( I , K+l ) =CC ( I , K+l ) +CC ( I , K) * (TN-1N1) 

K=K+3 
304 CONTINUE 


IF PRTSW4 = 1 THEN PRINT MAT DD+MAT CC INFO FOR THIS CONTAMINANT 
IF (PRTSW4.EQ. 1) THEN 

OPEN ( IMSGDN , FILE= ' CON ' , IOSTAT= I OVAL ) 

WRITE ( IMSGDN, *) 'PRINTOUT FOR ONE CONT AT END OF MCALC ' 
WRITE (IMSGDN, *) 'INFO FROM MAT CC' 

CLOSE (IMSGDN) 

CALL CROUT (NN , CC , NROW1 , NCOLl , 1 , NCOLl , LIN ,1,1, IMSGDN ) 

OPEN ( IMSGDN , FILE= ' CON ' , IOSTAT=IOVAL) 

WRITE (IMSGDN, *) 'INFO FROM MAT DD' 

CLOSE ( IMSGDN) 

CALL RROUT ( DD , NROW , NCOL , 1 , NCOL , LIN2 , IMSGDN ) 

ENDIF 

END OF I LOOP FOR EACH CONTAMINANT 


100 CONTINUE 
RETURN 

****** end 


OF SUBROUTINE MCALC ********************************** 


END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\PCAVCF. Options: /C 80 /L /BY 05/21/92 12:57:51 

q *★★★★★★**★*★★***★★★★*★★★★*★*★★****★**★★*★**★**★★**★**★★★★********★ 

2 C * SUBROUTINE PCAVCF * 

3 C * SUBROUTINE TO PREDICT INCREMENT CALCULATED AVERAGE EFF * 

4 C * (C AV CALC) , FINAL EFF (CFINAL) & CABIN CONTAMINANT * 

5 C * CONCENTRATION * 

5 c ★★*★******★★*★★*******★****★*★**★*****★*****★★*★★★★★★****★★★*★★★★★ 

7 

8 SUBROUTINE PCAVCF (TN, TNI , SCEQLIB , SQEFFN, CVOL, SMNTC , CINIT, 

9 + CAVCLC , SCFINAL ) 

10 DOUBLE PRECISION EXPON, CEQL IB , CFINAL 

11 CEQLIB=DBLE ( SCEQLIB ) 

12 

13 C SUBROUTINES REQUIRED: NONE 

14 C 

15 C INPUTS: 

16 C TN, TNl=INITIAL & FINAL INCREMENT TIME (HRS) 

17 C SCEQLIB (CEQLIB) =EQUILIBRIUM CABIN CONC (MG/CUM) 

18 C SQEFFN=SUM Q* REMOVAL EFF NET (MG/HR) 

19 C CVOL=CABIN VOLUME (CU M) 

20 C SMNTC = SUM MASS CONT NET TO CABIN (MG/HR) 

21 C CINIT= INITIAL INCREMENT CONT CONC (MG/CU M) 

22 C OUTPUTS: 

23 C SCAVCLC (CAVCLC) =CALC AVERAGE CABIN CONC (MG/CU M) 

24 C SCFINAL (CFINAL) =FINAL INCREMENT CONC (MG/CU M) 

25 C 

26 IF (CVOL. LE. 0 ) THEN 

27 CAVCLC =CEQLIB 

28 CFINAL=CEQLIB 

29 GOTO 99 

30 ENDIF 

31 C CALCULATION FOR CFINAL 

32 EX PON = (TN-TNl ) *SQEFFN/CVOL 

33 IF(ABS (EXPON) .GT. 50) THEN 

34 CAVCLC =CEQLIB 

35 CFINAL=CEQLIB 

36 GOTO 99 

37 ENDIF 

38 IF (ABS ( EXPON) .LT.lE-6) THEN 

39 CFINAL=CINIT+SMNTC* (TN-TNl) /CVOL 

40 CAVCLC = (CINIT+CFINAL) /2 

41 CEQLIB=1E10 

42 GOTO 99 

43 ELSE 

44 CFINAL=CINIT+ (SMNTC/SQEFFN-CINIT) * (1-EXP (-EXPON) ) 

45 ENDIF 

46 C CALCULATION FOR C AVERAGE CALC 

47 IF ( (CINIT. EQ. CFINAL) .OR. (CFINAL. EQ. CEQLIB ) ) THEN 
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48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 C 

61 

62 C 


CAVCLC=CFINAL 
GOTO 99 
ENDIF 

IF ( (CEQLIB-CINIT) / (CEQLIB-CFINAL) .LT.1E-6) THEN 
CAVCLC= (CINIT+CFINAL) / 2 
ELSE 

CAVCLC=CEQLIB- (CFINAL-CINIT) /LOG( (CEQLIB-CINIT) / 

+ (CEQLIB -CFINAL) ) 

ENDIF 

099 CONTINUE 

SCF INAL=REAL (CFINAL) 

RETURN 

*********** eNI) OF SUBROUTINE PCAVCF ************************** 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\PCSET.F Options: /C 80 /L /BY 


05/21/92 12:58:31 


**★*******★**★*★*★***★*★★****★*******★★★★★★***★*★**★*★★★*★******* 

* SUBROUTINE PCSET * 

* SUBROUTINE FOR PRECALCULATION SETUP ROUTINE * 

* FOR ALL CONTAMINANTS ONE AT A TIME * 

* CALL EFF SUBROUTINES FOR DEVICES; GET CAV CABIN PRED, * 

* CEQUILIB, CFINAL, & M. REMOVED ALL DEVICES- PUT IN MAT CC * 

***************************************************************** 

SUBROUTINE PCSET (TNI , LIN , DD , NROW, NCOL , CC , NROW1 , NCOLl , 

+CDI , NROW2 , NCOL2 , LIN2 , NN, PRTSW1 , IMSGDN) 

INTEGER NROW, NCOL , NROW1 , NCOLl , NROW2 , NCOL2 , PRTSW1 
CHARACTER NN(NROW1)*30 
REAL DD (NROW, NCOL) 

REAL CC(NROWl, NCOLl) 

REAL CD I (NROW2 , NCOL2 ) 

SUBROUTINES REQUIRED: 

PRAFIL-ZERO MAT DD COL 17-21 

CNRSUB-USING CAV=lE-20, FIND REMOVAL EFF AND PUT IN MAT DD COL 20 
MASBAL-CALC CAV CALC PRED, CEQ, CFINAL, M. REM 
CROUT-TEST PRINTOUT OF CONT INFO 


INPUTS : 

FROM MAIN CALC LOOP 

TNI = INCREMENT INITIAL TIME (HRS) 

LIN=NO. OF CONT IN MAT CC AND NN 
DD, NROW, NCOL =NAME & SIZE OF MAT DD 
CC , NROW1 , NCOLl=NAME & SIZE OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & SIZE OF MAT CDI 
LIN2 =NO. DEVICES IN MAT DD 
NN=NAME OF MAT NN 

PRTSW1 = PR INTSWITCH WHICH CONTROLS TEST PRINTOUT 
IMSGDN=DEVICE NUMBER FOR MESSAGES AND TEST PRINTOUT 
FROM PRAFIL 

PUTS ZEROS IN MAT DD COL 17-21 
FROM CNRSUB 

CNRSUB PUTS REM EFF (DEC) FOR EACH DEVICE IN MAT DD COL 20 
FROM MASBAL (PREDICTED VALUES) 

CAVCLC=AVERAGE CABIN CONC (MG/CU M) 

CFINAL=FINAL INCREMENT CONT CONC (MG/CU M) 
CEQLIB=EQUILIBRIUM CONT CONC (MG/CU M) 

M. REM FOR ALL DEVICES PLACED IN COL 21 OF MAT DD 
OUTPUTS 

TO MAIN PROGRAM 
PUT IN MAT CC 


45 C CAVPRD=PRED CABIN AV CONC (MG/CU M) : =CC(I,2) 

46 C CEQLIB=EQUILIBRIUM CABIN CONT CONC (MG/CU M):=CC(I,3) 

47 C CFINAL=FINAL CABIN CONT CONC (MG/CU M):=CC(I,4) 
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48 C 

49 C 

50 C 

51 C 

52 C 

53 C 

54 C 

55 C 

56 C 

57 C 

58 C 

59 C 

60 C 

61 C 

62 C 

63 C 

64 C 

65 C 

66 C 

67 C 

68 C 

69 C 

70 C 

71 C 

72 C 

73 

74 C 

75 

76 C 

77 

78 C 

79 C 

80 C 

81 

82 C 

83 

84 C 

85 

86 

87 C 

88 C 

89 

90 

91 C 

92 

93 

94 

95 C 

96 

97 


PUTS REM EFF FROM DD COL 20 IN CC (1,7-10-13-16 ETC) 

PUTS M. REM IN CC ( 1 , 5-8-11-14 ... ) 

TO PRAFIL 

NAME AND SIZE OF MAT DD+FIRST & LAST COLUMN TO ZERO 
TO CNRSUB 
I=CONT NO. 

TN, TNl=CONT INCREMENT FINAL, INIT TIME (HRS) 

CAVPRD=CABIN AVERAGE CONT CONC (MG/CU M) 

DD , NROW , NCOL=NAME & DIMENSIONS OF MAT DD 
CC,NROWl ,NCOLl=NAME & DIM OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & DIM OF MAT CDI 
LIN2 =NO . ACTIVE DEVICES IN MAT DD 
TO MASBAL 
I=CONT NO. 

TN, TNl=CONT INCREMENT FINAL, INIT TIME (HRS) 

DD , NROW , NCOL=NAME & DIMENSIONS OF MAT DD 
CALCLC =C ALC CABIN AV CONC (MG/CU M) 

CC , NROWl , NCOLl=NAME & DIM OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & DIM OF MAT CDI 
CFINAL=CABIN FINAL CONCENTRATION (MG/CU M) 

CEQLIB=CABIN EQUILIBRIUM CONCENTRATION (MG/CU M) 

LIN=NO . OF CONTAMINANTS IN MAT CDI 
LIN2=NO. ACTIVE DEVICES IN MAT DD 
TO RROUT 

MATRIX NAME, #ROWS,#COLS, FIRST & LAST COL TO PRINT, #LINES TO PRINT 


BASIC TIME INCREMENT (HRS) 

BINC=DD ( 1 , 11) 

SET FINAL INCREMENT TIME (HRS) 

TN=0 . l*BINC/24 

BEGIN LOOP FOR EACH CONTAMINANT - ONE AT A TIME 

CALCULATE REM EFF FOR EACH DEVICE, GET M.REM, CAV CABIN CALC 
CEQULIB, CF INAL -PUT IN MAT CC 
DO 100 1=1, LIN 

ZERO MAT DD COL 17 TO 21 

CALL PRAFIL (DD, NROW, NCOL, 17, 21) 

SET CAVPRD = MINIMUM VALUE TO ALLOW COMPUTATION 
CAVPRD=lE-20 
DD ( J , 2 2 ) =CAVPRD 

CALC REMOVAL EFFICIENCYS (THROUGH EFF CALLING SUBROUTINE) 

THIS STORES REM EFF IN MAT DD COL 20 FOR EACH DEVICE 
CALL CNRSUB ( I , TN , TNI , DD , NROW , NCOL , CC , NROWl , NCOL 1 , 

+ CDI , NROW2 , NCOL2 , LIN2 ) „ 

CALL MASS BALANCE-GET CAVPRD ( =CAVCLC IN MASBAL) , CEQ, CFINAL, M. 
CALL MASBAL ( I , TN , TNI , DD , NROW, NCOL , CC , NROWl , NCOLl , 

+ CAVCLC , CDI , NROW2 , NCOL2 , CFINAL , CEQLIB , LIN , LIN2 ) 

CAVPRD=CAVCLC 

PUT CAVPRD, CEQLIB, & CFINAL IN MAT CC 
CC ( 1 , 2 ) =CAVPRD 
CC ( I , 3 ) =CEQLIB 


REM 
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GET^REM EFF FROM DD COL 20 AND PUT IN CC (I, 7-10 13 ETC) 

K=7 

DO 101 J=2 , LIN2 
CC (I/K) =DD(J, 20) 

K=K+3 

TAKE C M . REMOVED FROM MAT DD COL 21 AND PUT IN MAT CC ( 1 , 5-8- . . . ) 
CABIN REMOVAL RATE 
CC (1,5) =DD (1,21) 

DEVICE 2-15 REMOVAL RATE 
K_s 

DO 102 J=2 , LIN2 
CC (I/K) =DD ( J, 21 ) 

K=K+3 

IF PRTSWl=l THEN PRINT MAT DD+MAT CC INFO FOR THIS CONTAMINANT 

IF (PRTSW1.EQ.1) THEN 

Opfm ( IMSGDN , FILE= ' CON ' , IOSTAT=IOVAL ) 

WRITE (IMSGDN,*) 'PRINTOUT FOR ONE CONT AT END OF PCSET' 
WRITE ( IMSGDN, * ) ’ INFO FROM MAT CC 1 

CALL CROUT ( NN , CC , NROWl , NCOLl , 1 , NCOLl , LIN , I , I , IMSGDN ) 

OPEN ( IMSGDN, FILE= ' CON ' , IOSTAT=IOVAL) 

WRITE (IMSGDN, *) 'INFO FROM MAT DD' 

CLOSE (IMSGDN) „ 

CALL RROUT ( DD , NROW , NCOL , 1 , NCOL , LIN2 , IMSGDN ) 

ENDIF 

CONTINUE 


RETURN +*+*********★*★★************ 

***★★*★*★* END OF SUBROUTINE PCSET 

END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

source File: C:\RMF0RT\TCC\PRAFIL. Options: /c 80 /L /BY 


1 C 

2 C 

3 C 

4 C 

5 C 

6 

7 

8 
9 

10 C 

11 C 

12 C 

13 

14 

15 

16 

17 

18 

19 

20 


05/21/92 12:58:44 


................. 

SUBROUTINE PRAFIL 

WITH ZER0S .* 

™ R0UTINE 

INTEGER NCOL , NROW , FSTCOL , LSTCOL 
REAL X (NROW, NCOL) 

INPUTS : 

FSTCOT^' fcmpAf^TDOT^ DIMENSIONS OF MATRIX X 

FSTCOL, LSTCOL=FIRST AND LAST COLUMN TO FILL WITH ZEROS 


I F ( FSTCOL . GT . NCOL ) FSTCOL=NCOL 
IF ( LSTCOL. GT. NCOL) LSTCOL=NCOL 
IF (FSTCOL. GT. LSTCOL) FSTCOL=LSTCOL 
DO 110 1=1, NROW 
DO 100 J=FSTCOL, LSTCOL 
X (I, J) =o . o 
100 CONTINUE 


21 110 CONTINUE 

22 RETURN 

23 C **★★★★**★**** 

24 END 


END OF SUBROUTINE PRAFIL 




NUMBER OF WARNINGS 
NUMBER OF ERRORS 
NUMBER OF WARNINGS 
NUMBER OF ERRORS 


IN PROGRAM UNIT: 0 
IN PROGRAM UNIT: 0 
IN COMPILATION : 0 
IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\PRFANS. Options: /C 80 /L /BY 


05/21/92 12:58:58 


1 C 

2 C 

3 C 

4 C 

5 C 

6 

7 C 

8 C 

9 

10 

11 

12 

13 C 

14 C 

15 

16 C 

17 C 

18 C 

19 C 

20 C 

21 C 

22 C 

23 C 

24 C 

25 C 

26 C 

27 C 

28 C 

29 

30 

31 

32 

33 

34 

35 C 

36 

37 C 

38 

39 

40 C 

41 C 

42 

43 

44 C 

45 

46 

47 


FILE PRFANS 

**************************************************************** 

* SUBROUTINE PRCDA * 

* PROGRAM TO PRINT ANSWERS FOR CONCENTRATION DATA * 

★★★★★★★★★★★★★★★★★★★★★★★Jr**************************************** 


NOTES : ( 1 ) FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 
( 2 ) IDEVNO MUST BE 6 FOR FORM FEEDS TO BE PRINTED 

SUBROUTINE PRCDA ( TN , TNI , LIN , CC , NROWl , NCOLl , CDI , NROW2 , NCOL2 , NN , 

+ IDEVNO, NINC , IMONTH , IDAY, I YEAR, I HOUR , I MINUTE , FNAME , I OVAL , IPGCTR, 
+PRTSW8 , PRTSW9 , FCPLOT, IDEVNl ) 

SUBROUTINES REQUIRED: 

HDG1 , HDG2 , HDG3 , HDG4 

TN, TN1=FINAL AND INITIAL INCREMENT TIME (HRS) 

LIN=TOTAL NUMBER OF CONTAMINANTS 
CC, NROWl, NCOLl =NAME & SIZE OF MAT CC 
CDI , NROW2 , NCOL2=NAME & SIZE OF MAT CDI 
NN=NAME OF MAT NN 
IDEVNO=DEVICE NUMBER FOR OUTPUT 
NINC=TIME INCREMENT NUMBER 

=0 THEN PRINT HDG3 WITH PCALC 
=-l THEN PRINT HDG3 WITH FINAL 
ELSE PRINT HDG2 WITH INCREMENT NUMBER 
IMONTH . . IMINUTE=TIME AND DATE INFO 
FNAME=FILE NAME OUTPUT DATA IS STORED ON 
IPGCTR=COUNTER FOR SEQUENTIAL PAGE NUMBERS ON ALL OUTPUT 

REAL CC{ NROWl, NCOLl) 

REAL CDI (NROW2 , NCOL2 ) 

CHARACTER CNAME*30 , FNAME* 24 , ECHR*1 , FCPLOT*24 
CHARACTER NN ( NROWl ) * 3 0 
INTEGER PRTSW8 , PRTSW9 , NINC 
ECHR=EXCEEDS MAC CHARACTER (Y OR N) 

IF ( (PRTSW8.EQ. 1) ,OR. ( (PRTSW8.EQ.0) .AND. (NINC.EQ. -1) ) ) THEN 
INCREMENT PAGE COUNTER BY ONE 
I PGCTR= I PGCTR+ 1 

START FIRST PAGE 
PRINT FORM FEED 

WRITE (IDEVNO, 20 , IOSTAT=IOVAL, ERR=900 ) 

020 FORMAT ( ' 1 ' ) 

PRINT BLANK LINE FOLLOWED BY HEADINGS 1, 3 &4 
WRITE ( IDEVNO, 40 , IOSTAT=IOVAL, ERR=900 ) 

040 FORMAT (IX, ' 1 ) 

CALL HDG1 ( IMONTH, IDAY, I YEAR, IHOUR, I MINUTE, FNAME, IPGCTR, IDEVNO) 
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48 

49 

50 

51 

52 

53 

54 

55 

56 C 

57 

58 

59 C 

60 
61 

62 C 

63 

64 C 

65 

66 C 

67 

68 

69 C 

70 

71 

72 

73 

74 

75 C 

76 C 

77 

78 010 

79 

80 C 

81 
82 

83 C 

84 C 

85 

86 050 

87 C 

88 

89 030 

90 

91 

92 

93 

94 

95 

96 


IF(NINC.EQ.O) THEN 

CALL HDG3 (1 , TNI , TN, IDEVNO) 

ELSEIF(NINC.EQ.-l) THEN 

CALL HDG3 (2, TNI, TN, IDEVNO) 

ELSE 

CALL HDG2 (NINC, TNI, TN, IDEVNO) 

ENDIF 

CALL HDG4 (IDEVNO) 

PRINT ANOTHER BLANK LINE 

WRITE (IDEVNO, 40 , IOSTAT=IOVAL, ERR=900) 

BEGIN LOOP FOR EACH CONTAMINANT 1 TO LIN 
DO 100 1=1, LIN 

CNAME=CONTAMINANT NAME 
CNAME=NN ( I ) 

FCONC=FINAL CONT CONCENTRATION (MG CU M) 

FCONC=CC (1,4) 

RMAC =MAX IMUM ALLOWABLE CONCENTRATI ION (MG/CU M) 

RMAC=CDI (1,9) 

IF CABIN CONC>MAC PRINT 'Y' OTHERWISE PRINT 'N' 

IF ( FCONC . GT . RMAC ) THEN 
ECHR= ' Y ' 

ELSE 

ECHR= ' N ' 

ENDIF 

PRINT 56 LINES OF DATA AND THEN START NEW PAGE 
WRITE ( IDEVNO , 10 , IOSTAT=IOVAL , ERR=900 ) I , CNAME , FCONC , RMAC , ECHR 
FORMAT (IX, 14, IX, A, IX, Gil. 4, IX, Gil. 4, 5X, A) 

CHECK FOR 56 LINES- IF SO, INCREMENT PAGE NUMBER+START NEW PAGE 
IF ( INT (REAL (I ) /56) . EQ.REAL ( I ) / 56 ) THEN 
I PGCTR= I PGCTR+ 1 
START SUBSEQUENT PAGES 
PRINT FORM FEED 

WRITE (IDEVNO, 50 , IOSTAT=IOVAL, ERR=900) 

FORMAT Cl') 

PRINT BLANK LINE FOLLOWED BY HEADINGS 1, 3 &4 
WRITE ( IDEVNO, 30 , IOSTAT=IOVAL, ERR=900 ) 

FORMAT (IX, ' ' ) 

CALL HDG1 (IMONTH, IDAY , I YEAR , IHOUR, IMINUTE , FNAME , IPGCTR, IDEVNO) 
IF (NINC . EQ. 0 ) THEN 

CALL HDG3 (1, TNI, TN, IDEVNO) 

ELSEIF (NINC . EQ. -1) THEN 
CALL HDG3 (2, TNI, TN, IDEVNO) 

ELSE 

CALL HDG2 (NINC, TNI, TN, IDEVNO) 
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97 

98 

99 C 
100 
101 
102 

103 

104 

105 C 

106 C 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

NUMBER 

NUMBER 

123 

124 C 

125 C 

126 C 

127 C 

128 C 

129 

130 C 

131 C 

132 

133 

134 

135 

136 C 

137 C 

138 

139 C 

140 C 

141 C 

142 C 

143 C 


ENDIF 

CALL HDG4 ( IDEVNO) 

PRINT ANOTHER BLANK LINE 
WRITE ( IDEVNO, 30 , IOSTAT=IOVAL, ERR=900) 

ENDIF 
100 CONTINUE 
ENDIF 

********* WRITE CONCENTRATION DATA TO A PLOT FILE ************* 
IF (NINC.NE. -1 ) THEN 

IF ( (PRTSW9.EQ.1) .OR. (PRTSW9.EQ.3) ) THEN 
DO 120 1=1, LIN, 300 
IS=I 

IE=I+299 

IF (IE.GT.LIN) IE=LIN 

WRITE ( IDEVN1 , 110 , IOSTAT=IOVAL, ERR=900 ) TNI , TN, 

+ (CC ( J, 4 ) , J=IS , IE) 

110 FORMAT (T2 , 2 (F8 . 3 , IX) , 300 (Gil . 4 , : , IX) ) 

120 CONTINUE 
ENDIF 
ENDIF 
GO TO 999 

900 WRITE (* , * ) ' IO ERROR IN PRCDA= • , IOVAL 
999 RETURN 
END 

OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 


a************************************************************** 

* SUBROUTINE PRREM1 

* PROGRAM TO PRINT ANSWERS -RATE OF CONTAMINAMT REMOVAL (MG /HR) 

* SHEET 1 

****** ******************** ************************************* 


NOTES: ( 1 ) FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 
( 2 ) IDEVNO MUST BE 6 FOR FORM FEEDS TO BE PRINTED 

SUBROUTINE PRREM1 (TN,TNl,LIN,CC,NROWl,NCOLl,CDI,NROW2 ,NCOL2,NN, 
+ IDEVNO,NINC, IMONTH, IDAY, I YEAR, IHOUR, I MINUTE , FNAME , IOVAL, IPGCTR) 

SUBROUTINES REQUIRED: 

HDG1 , HDG2 , HDG3 , HDG8 

TN , TN1=FINAL AND INITIAL INCREMENT TIME (HRS) 

LIN=TOTAL NUMBER OF CONTAMINANTS 
CC , NROW1 , NCOLl=NAME & SIZE OF MAT CC 
CD I , NROW2 , NCOL2 =NAME & SIZE OF MAT CDI 
NN=NAME OF MAT NN 



144 C 

145 C 

146 C 

147 C 

148 C 

149 C 

150 C 

151 C 

152 

153 

154 

155 

156 

157 

158 C 

159 

160 

161 C 

162 C 

163 

164 

165 C 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 C 

178 

179 

180 C 

181 
182 

183 C 

184 

185 

186 

187 

188 

189 C 

190 

191 

192 C 

193 C 


IDEVNO=DEVICE NUMBER FOR OUTPUT 
NINC=TIME INCREMENT NUMBER 

=0 THEN PRINT HDG3 WITH PCALC 
=-l THEN PRINT HDG3 WITH FINAL 
ELSE PRINT HDG2 WITH INCREMENT NUMBER 
IMONTH . . IMINUTE=TIME AND DATE INFO 
FNAME=FILE NAME OUTPUT DATA IS STORED ON 
I PGCTR=COUNTER FOR SEQUENTIAL PAGE NUMBERS ON ALL OUTPUT 

REAL CC (NROW1 , NCOLl ) 

REAL CDI (NROW2 , NCOL2 ) 

CHARACTER CNAME*30 , FNAME*24 
CHARACTER NN ( NROW1 ) * 3 0 

INCREMENT PAGE COUNTER BY ONE 
I PGCTR= I PGCTR+ 1 

START FIRST PAGE 
PRINT FORM FEED 

WRITE ( IDEVNO, 20 , IOSTAT=IOVAL , ERR=900 ) 

020 FORMAT ('1') 

PRINT BLANK LINE FOLLOWED BY HEADINGS 1, 3 &8 
WRITE ( IDEVNO, 40 , IOSTAT=IOVAL, ERR=900) 

040 FORMAT {IX, '') 

CALL HDG1 ( IMONTH, IDAY, I YEAR, IHOUR, IMINUTE , FNAME , IPGCTR, IDEVNO) 
IF(NINC.EQ.O) THEN 

CALL HDG3 (1, TNI, TN, IDEVNO) 

ELSEIF (NINC • EQ . - 1 ) THEN 

CALL HDG3 (2, TNI, TN, IDEVNO) 

ELSE 

CALL HDG2 (NINC, TNI, TN, IDEVNO) 

ENDIF 

CALL HDG8 (IDEVNO) 

PRINT ANOTHER BLANK LINE 

WRITE ( IDEVNO, 40 , IOSTAT=IOVAL, ERR=900 ) 

BEGIN LOOP FOR EACH CONTAMINANT 1 TO LIN 
DO 100 1=1, LIN 

PRINT 56 LINES OF DATA AND THEN START NEW PAGE 
WRITE (IDEVNO, 10, IOSTAT=IOVAL,ERR=900) I,NN(I) , 

+CC(I,5) ,CC (1,8) ,CC (1,11) ,CC (1,14) ,CC (1,17) ,CC (1,20) ,CC (1,23) , 
+CC(I,26) 

010 FORMAT (IX, 14, 1X,A, 8 (1X,G11.4) ) 

CHECK FOR 56 LINES- IF SO, INCREMENT PAGE NUMBER+START NEW PAGE 
IF ( INT (REAL ( I ) /56) . EQ. REAL ( I) /56) THEN 
I PGCTR= I PGCTR+ 1 
START SUBSEQUENT PAGES 
PRINT FORM FEED 
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194 

195 

196 C 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 C 

209 

210 
211 
212 

213 

214 

215 

216 

217 

NUMBER 

NUMBER 

218 

219 C 

220 C 

221 C 

222 C 

223 C 

224 

225 C 

226 C 

227 

228 
229 

231 C 

232 C 

233 

234 C 

235 C 

236 C 

237 C 

238 C 

239 C 


WRITE ( IDEVNO, 50 , IOSTAT= IOVAL, ERR=900 ) 

050 FORMAT ('1') 

PRINT BLANK LINE FOLLOWED BY HEADINGS 1, 3 &8 
WRITE (IDEVNO, 30 , IOSTAT= IOVAL , ERR=900) 

030 FORMAT ( IX , 1 1 ) 

CALL HDG1 (IMONTH, IDAY, I YEAR, IHOUR, IMINUTE , FNAME , IPGCTR, IDEVNO) 
IF(NINC.EQ.O) THEN 

CALL HDG3 (1, TNI, TN, IDEVNO) 

ELSEIF (NINC.EQ. -1) THEN 

CALL HDG3 (2, TNI, TN, IDEVNO) 

ELSE 

CALL HDG2 (NINC, TNI, TN, IDEVNO) 

ENDIF 

CALL HDG8 (IDEVNO) 

PRINT ANOTHER BLANK LINE 

WRITE (IDEVNO, 30 , IOSTAT= IOVAL, ERR=900) 

ENDIF 
100 CONTINUE 

GO TO 999 

900 WRITE (*,*) 'IO ERROR IN PRREMl= ', IOVAL 
999 RETURN 
END 

OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 


**************************************************************** 

* SUBROUTINE PRREM2 * 

* PROGRAM TO PRINT ANSWERS -RATE OF CONTAM I N AMT REMOVAL (MG /HR) * 

* SHEET 2 * 

**************************************************************** 


NOTES: ( 1 ) FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 
(2) IDEVNO MUST BE 6 FOR FORM FEEDS TO BE PRINTED 

SUBROUTINE PRREM2 (TN, TNI , LIN, CC, NROW1 ,NCOLl , CDI , NROW2 , NCOL2 , NN, 

+ IDEVNO , NINC , IMONTH , IDAY , I YEAR , IHOUR , IMINUTE , FNAME , IOVAL , I PGCTR ) 230 
SUBROUTINES REQUIRED: 

HDG1 , HDG2 , HDG3 , HDG9 

TN, TNl=FINAL AND INITIAL INCREMENT TIME (HRS) 

LIN=TOTAL NUMBER OF CONTAMINANTS 
CC , NROWl , NCOLl=NAME & SIZE OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & SIZE OF MAT CDI 
NN=NAME OF MAT NN 
IDEVNO=DEVICE NUMBER FOR OUTPUT 
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240 C 

241 C 

242 C 

243 C 

244 C 

245 C 

246 C 

247 

248 

249 

250 

251 

252 

253 C 

254 

255 

256 C 

257 C 

258 

259 C 

260 
261 
262 

263 C 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 C 

276 

277 

278 C 

279 

280 

281 C 

282 

283 

284 

285 

286 C 

287 

288 
289 C 


NINC=TIME INCREMENT NUMBER 

=0 THEN PRINT HDG3 WITH PCALC 
=-l THEN PRINT HDG3 WITH FINAL 
ELSE PRINT HDG2 WITH INCREMENT NUMBER 
IMONTH . . IMINUTE=TIME AND DATE INFO 
FNAME=FILE NAME OUTPUT DATA IS STORED ON 

I PGCTR=COUNTER FOR SEQUENTIAL PAGE NUMBERS ON ALL OUTPUT 

REAL CC (NROW1 , NCOL1 ) 

REAL CD I (NROW2 , NCOL2 ) 

CHARACTER CNAME*30, FNAME*24 
CHARACTER NN(NROW1)*30 

INCREMENT PAGE COUNTER BY ONE 
I PGCTR= I PGCTR+ 1 

START FIRST PAGE 

DON’T PRINT FORM FEED UNLESS NO. CONT >20 
IF (LIN.GT. 20 ) THEN 
PRINT FORM FEED 

WRITE (IDEVNO, 20 , IOSTAT=IOVAL, ERR=900 ) 

020 FORMAT {’1') 

ENDIF 

PRINT BLANK LINE FOLLOWED BY HEADINGS 1, 3 &9 
WRITE ( IDEVNO, 40 , IOSTAT=IOVAL, ERR=900 ) 

040 FORMAT (IX, ' ' ) 

CALL HDG1 { IMONTH, IDAY, I YEAR, IHOUR, IMINUTE , FNAME, IPGCTR, IDEVNO) 
IF(NINC.EQ.O) THEN 

CALL HDG3 (1, TNI, TN, IDEVNO) 

ELSEIF (NINC . EQ . -1 ) THEN 

CALL HDG3 (2, TNI, TN, IDEVNO) 

ELSE 

CALL HDG2 (NINC, TNI, TN, IDEVNO) 

ENDIF 

CALL HDG9 (IDEVNO) 

PRINT ANOTHER BLANK LINE 

WRITE ( IDEVNO, 40 , IOSTAT=IOVAL, ERR=900 ) 

BEGIN LOOP FOR EACH CONTAMINANT 1 TO LIN 
DO 100 1=1, LIN 

PRINT 56 LINES OF DATA AND THEN START NEW PAGE 
WRITE (IDEVNO, 10, IOSTAT=IOVAL,ERR=900) I,NN(I) , 

+CC(I,29) ,CC (1,32) ,CC (1,35) ,CC (1,38) ,CC (1,41) ,CC (1,44) ,CC (I, 47) 

010 FORMAT ( IX, 14 , IX, A, 7 ( 1X,G11 . 4 ) ) 

CHECK FOR 56 LINES-IF SO, INCREMENT PAGE NUMBER+START NEW PAGE 
IF ( INT (REAL (I ) /56 ) . EQ. REAL ( I ) /56) THEN 
I PGCTR= I PGCTR+ 1 
START SUBSEQUENT PAGES 
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290 C 

291 

292 

293 C 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 C 

306 

307 

308 

309 

310 

311 

312 

313 

314 

NUMBER 

NUMBER 

315 

316 C 

317 C 

318 C 

319 C 

320 C 

321 

322 C 

323 C 

324 

325 

326 

327 

328 C 

329 C 

330 

331 C 

332 C 

333 C 

334 C 

335 C 


PRINT FORM FEED 

WRITE (IDEVNO, 50 , IOSTAT=IOVAL, ERR=900 ) 

050 FORMAT ('I') 

PRINT BLANK LINE FOLLOWED BY HEADINGS 1, 3 &8 
WRITE { IDEVNO ,30, IOSTAT= IOVAL , ERR=9 0 0 ) 

030 FORMAT ( IX , 1 ' ) 

CALL HDG1 (IMONTH, IDAY, I YEAR, IHOUR, IMINUTE , FNAME , IPGCTR, IDEVNO) 
IF(NINC.EQ.O) THEN 

CALL HDG3 (1, TNI, TN, IDEVNO) 

ELSEIF (NINC . EQ . - 1 ) THEN 

CALL HDG3 (2 , TNI, TN, IDEVNO) 

ELSE 

CALL HDG2 ( NINC , TNI , TN , IDEVNO ) 

ENDIF 

CALL HDG9 (IDEVNO) 

PRINT ANOTHER BLANK LINE 

WRITE (IDEVNO, 30 , IOSTAT= IOVAL , ERR=900) 

ENDIF 
100 CONTINUE 

GO TO 999 

900 WRITE (*,*) 'IO ERROR IN PRREM2= ‘ , IOVAL 
999 RETURN 
END 

OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 


**************************************************************** 

* SUBROUTINE PRMAS1 * 

* PROGRAM TO PRINT ANSWERS-SUM OF CONT REMOVED BY DEVICE (MG) * 

* SHEET 1 * 

**************************************************************** 


NOTES: ( 1 ) FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 
( 2 ) IDEVNO MUST BE 6 FOR FORM FEEDS TO BE PRINTED 

SUBROUTINE PRMAS1 (TN, TNI , LIN, CC , NROW1 ,NCOLl , CDI , NROW2 , NCOL2 , NN, 
+ IDEVNO, NINC, IMONTH, IDAY, I YEAR, IHOUR, IMINUTE, FNAME , IOVAL , IPGCTR) 

SUBROUTINES REQUIRED: 

HDG1 , HDG2 , HDG3 , HDG5 

TN , TNI =FINAL AND INITIAL INCREMENT TIME (HRS) 

LIN=TOTAL NUMBER OF CONTAMINANTS 
CC , NROW1 , NCOLl=NAME & SIZE OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & SIZE OF MAT CDI 
NN=NAME OF MAT NN 
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336 C 

337 C 

338 C 

339 C 

340 C 

341 C 

342 C 

343 C 

344 

345 

346 

347 

348 

349 

350 C 

351 

352 

353 C 

354 C 

355 

356 

357 C 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 C 

370 

371 

372 C 

373 

374 

375 C 

376 

377 

378 

379 

380 

381 C 

382 

383 

384 C 

385 C 


IDEVNO=DEVICE NUMBER FOR OUTPUT 
NINOTIME INCREMENT NUMBER 

=0 THEN PRINT HDG3 WITH PCALC 
=-l THEN PRINT HDG3 WITH FINAL 
ELSE PRINT HDG2 WITH INCREMENT NUMBER 
IMONTH. . IMINUTE=TIME AND DATE INFO 
FNAME=FILE NAME OUTPUT DATA IS STORED ON 
I PGCTR=COUNTER FOR SEQUENTIAL PAGE NUMBERS ON ALL OUTPUT 

REAL CC (NROW1 , NCOLl ) 

REAL CD I (NROW2 , NCOL2 ) 

CHARACTER CNAME*30 , FNAME*24 
CHARACTER NN ( NROWl ) * 3 0 

INCREMENT PAGE COUNTER BY ONE 
IPGCTR=IPGCTR+1 

START FIRST PAGE 
PRINT FORM FEED 

WRITE (IDEVNO, 20 , IOSTAT=IOVAL, ERR=900 ) 

020 FORMAT Cl') 

PRINT BLANK LINE FOLLOWED BY HEADINGS 1, 3 &5 
WRITE ( IDEVNO, 40 , IOSTAT=IOVAL, ERR=900) 

040 FORMAT { IX, ' ‘ ) 

CALL HDG1 ( IMONTH, IDAY, IYEAR, IHOUR, IMINUTE, FNAME, IPGCTR, IDEVNO) 
IF(NINC.EQ.O) THEN 

CALL HDG3 (1, TNI, TN, IDEVNO) 

ELSEIF (NINC . EQ. -1 ) THEN 

CALL HDG3 (2 , TNI, TN, IDEVNO) 

ELSE 

CALL HDG2 {NINC, TNI, TN, IDEVNO) 

ENDIF 

CALL HDG5 (IDEVNO) 

PRINT ANOTHER BLANK LINE 

WRITE ( IDEVNO, 40 , IOSTAT=IOVAL, ERR=900 ) 

BEGIN LOOP FOR EACH CONTAMINANT 1 TO LIN 
DO 100 1=1, LIN 

PRINT 56 LINES OF DATA AND THEN START NEW PAGE 
WRITE (IDEVNO, 10, IOSTAT=IOVAL,ERR=900) I,NN(I) , 

+CC(I,6) ,CC (1,9) ,CC( 1,12) ,CC (1,15) ,CC (1,18) ,CC (1,21) ,CC (1,24) , 

+CC (1,27) 

010 FORMAT (IX, 14, IX, A, 8 (IX, Gil. 4) ) 

CHECK FOR 56 LINES- IF SO, INCREMENT PAGE NUMBER+ START NEW PAGE 
IF ( INT (REAL ( I ) / 5 6 ) . EQ. REAL (I) /56) THEN 
IPGCTR=IPGCTR+1 
START SUBSEQUENT PAGES 
PRINT FORM FEED 
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386 

387 

388 C 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 C 

401 

402 

403 

404 

405 

406 

407 

408 

409 

NUMBER 

NUMBER 

410 

411 C 

412 C 

413 C 

414 C 

415 C 

416 

417 C 

418 C 

419 

420 

421 

422 

423 C 

424 C 

425 

426 C 

427 C 

428 C 

429 C 

430 C 

431 C 


050 

030 


WRITE ( IDEVNO, 50 , IOSTAT=IOVAL , ERR=900 ) 

FORMAT ('1') , , f 0 

PRINT BLANK LINE FOLLOWED BY HEADINGS 1, 3 &o 
WRITE ( IDEVNO, 30 , IOSTAT= IOVAL , ERR=900 ) 

FORMAT ( IX 1 1 ) 

CALL HDG1 < IMONTH , IDAY , I YEAR , IHOUR, IMINUTE , FNAME , IPGCTR , IDEVNO) 
IF(NINC.EQ.O) THEN 

CALL HDG3 (1, TNI, TN, IDEVNO) 

ELSEIF (NINC.EQ. -1) THEN 

CALL HDG3 (2, TNI, TN, IDEVNO) 

ELSE 

CALL HDG2 (NINC, TNI, TN, IDEVNO) 

ENDIF 

CALL HDG5 (IDEVNO) 

PRINT ANOTHER BLANK LINE 

WRITE ( IDEVNO ,30, IOSTAT= IOVAL , ERR=9 0 0 ) 


ENDIF 
100 CONTINUE 

GO TO 999 

900 WRITE (*,*)' IO ERROR IN PRMAS1= ', IOVAL 
999 RETURN 
END 

OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 




************************** 




* SUBROUTINE PRMAS2 

* PROGRAM TO PRINT ANSWERS -SUM OF CONT 

* SHEET 2 

*************************************** 


REMOVED BY DEVICE 
*★*★*★★★★******** 


(MG) 

★ ★★*** 


★ * 
★ 
★ 
★ 

★ * 


NOTES 


• ( 1 ) FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 

(2) IDEVNO MUST BE 6 FOR FORM FEEDS TO BE PRINTED 


SUBROUTINE PRMAS2 ( TN , TNI , LIN , CC , NROWl , NCOLl , CDI , NROW2 , NCOL2 , NN , 
+ IDEVNO, NINC, IMONTH, IDAY, I YEAR, IHOUR, IMINUTE, FNAME, IOVAL, IPGCTR) 


SUBROUTINES REQUIRED: 

HDG1 , HDG2 , HDG3 , HDG6 

TN , TNI =FINAL AND INITIAL INCREMENT TIME (HRS) 
LIN=TOTAL NUMBER OF CONTAMINANTS 
CC, NROWl, NCOLl =NAME & SIZE OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & SIZE OF MAT CDI 
NN=NAME OF MAT NN 
IDEVNO=DEVICE NUMBER FOR OUTPUT 
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432 C 

433 C 

434 C 

435 C 

436 C 

437 C 

438 C 

439 

440 

441 

442 

443 

444 

445 C 

446 

447 

448 C 

449 C 

450 

451 C 

452 

453 

454 

455 C 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 C 

468 

469 

470 C 

471 

472 

473 C 

474 

475 

476 

477 

478 C 

479 

480 

481 C 


NINC=TIME INCREMENT NUMBER 

=0 THEN PRINT HDG3 WITH PCALC 
=-l THEN PRINT HDG3 WITH FINAL 
ELSE PRINT HDG2 WITH INCREMENT NUMBER 
IMONTH . . IMINUTE=TIME AND DATE INFO 

FNAME=FILE NAME OUTPUT DATA IS STORED ON ^„ mT , rTm 

I PGCTR=COUNTER FOR SEQUENTIAL PAGE NUMBERS ON ALL OUTPUT 


REAL CC (NROW1 , NCOLl ) 

REAL CDI (NROW2 , NCOL2 ) 
CHARACTER CNAME*30 , FNAME*24 
CHARACTER NN (NROWl ) * 3 0 

INCREMENT PAGE COUNTER BY ONE 
I PGCTR= I PGCTR+ 1 


020 

040 


START FIRST PAGE 

DON'T PRINT FORM FEED UNLESS NO. CQNT > 20 
IF (LIN. GT. 20) THEN 
PRINT FORM FEED 

WRITE ( IDEVNO ,20, IOSTAT=IOVAL , ERR=900 ) 

FORMAT Cl') 

ENDIF , , r0 

PRINT BLANK LINE FOLLOWED BY HEADINGS 1 , 3 &9 
WRITE ( IDEVNO, 40 , IOSTAT=IOVAL, ERR=900) 

CALI^HDGl't IMONTH , IDAY , I YEAR , IHOUR, IMINUTE , FNAME , IPGCTR, IDEVNO) 
IF(NINC.EQ.O) THEN 

CALL HDG3 ( 1 , TNI , TN , IDEVNO) 

ELSEIF (NINC . EQ . - 1 ) THEN 

CALL HDG3 (2, TNI, TN, IDEVNO) 

ELSE 

CALL HDG2 (NINC, TNI, TN, IDEVNO) 

ENDIF 

CALL HDG6 (IDEVNO) 

PRINT ANOTHER BLANK LINE 

WRITE ( IDEVNO, 40 , IOSTAT=IOVAL, ERR=900) 


BEGIN LOOP FOR EACH CONTAMINANT 1 TO LIN 
DO 100 1=1, LIN 


PRINT 56 LINES OF DATA AND THEN START NEW PAGE 
WRITE (IDEVNO, 10, IOSTAT=IOVAL,ERR=900) I,NN(I) , 

+CC (1,30) ,CC(I,33) ,CC( 1,36) ,CC( 1,39) ,CC (1,42) ,CC( 1,45) ,CC{ I, 48) 
)10 FORMAT (IX, 14, IX, A, 7 (IX, Gil .4) ) 


CHECK FOR 56 LINES- IF SO, INCREMENT PAGE NUMBER+ START NEW PAGE 
IF ( INT (REAL ( I ) / 56 ) . EQ. REAL (I) /56) THEN 
I PGCTR= I PGCTR+ 1 
START SUBSEQUENT PAGES 
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482 C 

483 

484 

485 C 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 C 

498 

499 

500 

501 

502 

503 

504 

505 

506 

NUMBER 

NUMBER 

507 

508 C 

509 C 

510 C 

511 C 

512 C 

513 

514 C 

515 C 

516 

517 

518 

519 

520 

521 C 

522 C 

523 

524 C 

525 C 

526 C 

527 C 


050 

030 


PRINT FORM FEED 

WRITE ( IDEVNO ,50, IOSTAT=IOVAL , ERR=9 0 0 ) 

FORMAT ('1') 

PRINT BLANK LINE FOLLOWED BY HEADINGS 1, 3 &8 
WRITE ( IDEVNO, 30 , IOSTAT=IOVAL, ERR=900) 

FORMAT ( IX , 1 ' ) 

CALL HDG1 ( IMONTH , IDAY , I YEAR , IHOUR , IMINUTE , FNAME , 
IF(NINC.EQ.O) THEN 

CALL HDG3 (1, TNI, TN, IDEVNO) 

ELSEIF (NINC.EQ. -1) THEN 

CALL HDG3 (2, TNI, TN, IDEVNO) 


IPGCTR, IDEVNO) 


ELSE 

CALL HDG2 (NINC , TNI , TN, IDEVNO) 

ENDIF 

CALL HDG6 (IDEVNO) 

PRINT ANOTHER BLANK LINE 

WRITE ( IDEVNO ,30, IOSTAT= IOVAL , ERR=9 0 0 ) 


ENDIF 
100 CONTINUE 


GO TO 999 

900 WRITE (*,*) 'IO ERROR IN PRMAS2= IOVAL 
999 RETURN 
END 

OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 




*************************** 


* SUBROUTINE PREFF 

* PROGRAM TO PRINT ANSWERS-END OF INCREMENT REMOVALL EFF (DEC) 


* * 
* 
★ 
★ 


* 




********* 


NOTES: (1) FILE MUST BE OPEN BEFORE STARTING THIS SUBROUTINE 
(2) IDEVNO MUST BE 6 FOR FORM FEEDS TO BE PRINTED 

SUBROUTINE PREFF ( TN , TNI , LIN , CC , NROW1 , NCOLl , CDI , NROW2 , NCOL2 , NN , 
+ IDEVNO, NINC, IMONTH, IDAY, IYEAR, IHOUR, IMINUTE, FNAME, IOVAL, IPGCTR, 
+PRTSW8 , PRTSW9 , IDEVN2 ) 


SUBROUTINES REQUIRED: 

HDG1 , HDG2 , HDG3 , HDG7 

TN, TNl=FINAL AND INITIAL INCREMENT TIME (HRS) 
LIN= TOTAL NUMBER OF CONTAMINANTS 
CC , NROWl , NCOLl =NAME & SIZE OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & SIZE OF MAT CDI 
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528 C 

529 C 

530 C 

531 C 

532 C 

533 C 

534 C 

535 C 

536 C 

537 

538 

539 

540 

541 

542 

543 

544 C 

545 

546 

547 C 

548 C 

549 

550 

551 C 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 C 

564 

565 

566 C 

567 

568 

569 C 

570 

571 

572 

573 

574 

575 C 

576 

577 


NN=NAME OF MAT NN 
IDEVNO=DEVICE NUMBER FOR OUTPUT 
NINC=TIME INCREMENT NUMBER 

=0 THEN PRINT HDG3 WITH PCALC 
=-l THEN PRINT HDG3 WITH FINAL 
ELSE PRINT HDG2 WITH INCREMENT NUMBER 
IMONTH . . IMINUTE=TIME AND DATE INFO 
FNAME=FILE NAME OUTPUT DATA IS STORED ON 
I PGCTR=COUNTER FOR SEQUENTIAL PAGE NUMBERS ON ALL OUTPUT 


REAL CC (NROWl,NCOLl) 

REAL CDI (NROW2 , NCOL2 ) 

CHARACTER CNAME*30 , FNAME*24 
CHARACTER NN ( NROW1 ) * 3 0 

INTEGER PRTSW8 , PRTSW9, IDEVN2 , IDEVNO, I, J,K,H,NINC 
IF ( (PRTSW8.EQ. 1) .OR. ( ( PRTSW8 . EQ . 0 ) .AND. (NINC.EQ. 
INCREMENT PAGE COUNTER BY ONE 
I PGCTR= I PGCTR+ 1 


-1))} THEN 


START FIRST PAGE 
PRINT FORM FEED 

WRITE (IDEVNO, 20 , IOSTAT=IOVAL, ERR=900) 

020 FORMAT Cl') 

PRINT BLANK LINE FOLLOWED BY HEADINGS 1, 3 &9 
WRITE ( IDEVNO ,40, IOSTAT=IOVAL, ERR=900 ) 

040 FORMAT ( IX, ' ' ) 

CALL HDG1 ( IMONTH, IDAY, I YEAR, IHOUR, IMINUTE , FNAME, IPGCTR, IDEVNO) 
IF (NINC.EQ. 0) THEN ' 

CALL HDG3 (1, TNI, TN, IDEVNO) 

ELSEIF (NINC.EQ. -1) THEN 

CALL HDG3 (2, TNI, TN, IDEVNO) 

ELSE 

CALL HDG2 (NINC, TNI, TN, IDEVNO) 

ENDIF 

CALL HDG7 (IDEVNO) 

PRINT ANOTHER BLANK LINE 

WRITE ( IDEVNO ,40, IOSTAT=IOVAL , ERR=900 ) 

BEGIN LOOP FOR EACH CONTAMINANT 1 TO LIN 
DO 100 1=1, LIN 


PRINT 56 LINES OF DATA AND THEN START NEW PAGE 
WRITE (IDEVNO, 10, IOSTAT=IOVAL,ERR=900) I,NN(I) , 
+CC (I, 7) ,CC(I, 10) ,CC(I, 13) ,CC (I, 16) ,CC(I, 19) ,CC(I,22) 
+CC (1,28) , CC ( I , 3 1 ) ,CC(I,34) ,CC(I,37) ,CC(I,40> ,CC(I,43 
010 FORMAT (IX, 14 , IX, A, 14 (IX, F5 . 3 ) ) 


, CC (1,25) , 
) , CC (I, 46) 


CHECK FOR 56 LINES- IF SO, INCREMENT PAGE 
IF ( INT (REAL (I) /56) . EQ.REAL (I) /56) THEN 
I PGCTR= I PGCTR+ 1 


NUMBER+START NEW PAGE 
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- START SUBSEQUENT PAGES 

- PRINT FORM FEED 

WRITE ( IDEVNO, 50 , IOSTAT=IOVAL, ERR=900 ) 

050 FORMAT ( ‘1 1 ) 

- PRINT BLANK LINE FOLLOWED BY HEADINGS 1, 3 &8 
WRITE (IDEVNO, 30, IOSTAT=IOVAL,ERR=900) 

030 FORMAT ( IX, '■ ) 

CALL HDG1 ( IMONTH , IDAY , IYEAR, IHOUR, IMINUTE , FNAME , IPGCTR IDEVNO) 
IF(NINC.EQ.O) THEN 

CALL HDG3 (1, TNI, TN, IDEVNO) 

ELSEIF (NINC . EQ . - 1 ) THEN 
CALL HDG3 (2 , TNI, TN, IDEVNO) 

ELSE 

CALL HDG2 (NINC, TNI, TN, IDEVNO) 

ENDIF 

CALL HDG7 (IDEVNO) 

PRINT ANOTHER BLANK LINE 

WRITE (IDEVNO, 30 , IOSTAT= IOVAL , ERR=900 ) 

ENDIF 
100 CONTINUE 
ENDIF 

*************** wjQrpg d ATA to A FILE FOR PLOTTING ************* 

IF (NINC.NE.-l) THEN 

IF ( (PRTSW9.EQ.2) .OR. (PRTSW9.EQ.3) ) THEN 
DO 70 1=1, LIN, 300 
IS=I 

IE=I+299 

IF (IE.GT.LIN) IE=LIN 
K=7 

DO 60 H=2 , 15 

WRITE (IDEVN2, 55, IOSTAT=IOVAL,ERR=900) TNI , TN, H 
+ (CC(J,K) , J=IS,IE) 

055 FORMAT (T2 , 2 (F8 . 2 , IX) , 12 , IX, 300 (F5 . 3 , : , IX) ) 

K=K+3 

060 CONTINUE 
070 CONTINUE 
ENDIF 
ENDIF 
GO TO 999 

900 WRITE (*,*) 'IO ERROR IN PREFF= 1 , IOVAL 
999 RETURN 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\PREDCT. Options: /C 80 /L /BY 


05/21/92 12:58:48 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


C 

C 

C 

C 

C 

C 

C 


★★★★★A*********************************************************** 

* SUBROUTINE PREDCT * 

* BASED ON REMOVAL EFF & SUM MASS REMOVED OF LAST INCREMENT, * 

* AND M. GEN OF THIS INCREMENT, PREDICT CAV PRED * 

* (CEQUILIB, CFINAL, M. REM ARE ALSO CALC, BUT NOT NEEDED) * 

* WORKS FOR ONE CONT AT A TIME * 

***************************************************************** 


SUBROUTINE PREDCT ( I , TN , TNI , CAVPRD, DD , NROW, NCOL , 

+CC , NROWl , NCOLl , CDI , NROW2 , NCOL2 , CAVCLC , CFINAL , CEQLIB , LIN, LIN2 , NN) 

INTEGER NROW , NCOL , NROWl , NCOLl , NROW2 , NCOL2 
CHARACTER NN ( NROWl ) * 3 0 
REAL DD (NROW, NCOL) 

REAL CC( NROWl, NCOLl) 

REAL CDI (NROW2 , NCOL2 ) 

C 

C SUBROUTINES REQUIRED: 

C PRAFIL-ZERO MAT DD COL 17-21 

C LODEFF-LOAD REM EFF FOR LAST INCR FROM MAT CC INTO MAT DD COL 20 
C MASBAL-CALC CAV PRED BASED ON REM EFF OF LAST INC & M. GEN OF THIS INC 
C 

C INPUTS: 

C FROM MCALC 
C I =CONTAMINANT NO. 

C TN, TNI = INCREMENT END & BEGINNING TIME (HRS) 

C DD , NROW , NCOL=NAME & DIM OF MAT DD 

C CC, NROWl, NCOL 1=NAME & DIM OF MAT CC 
C CDI , NROW2 , NCOL2 =NAME & DIM OF MAT CDI 
C LIN=NO. OF CONTAMINANTS IN MAT CDI 
C LIN2 =NO. DEVICES IN MAT DD 

C NN=NAME OF MAT NN 

C FROM LODEFF 

C TAKES REM EFF FOR LAST INCR (IN MAT CC) AND PUTS IT IN 
C MAT DD COL 20 (FOR ALL DEVICES) 

C FROM MASBAL 

C CAVCLC =C ALC CABIN CONT CONC (MG/CU M) 

C OUTPUTS: 

C TO LODEFF 

C I=CONTAMINANT LINE NUMBER IN MAT CC 

C DD , NROW , NCOL=NAME & DIMENSIONS OF MAT DD 

C CC, NROWl, NCOLl =NAME & DIMENSIONS OF MAT CC 

C LIN2=NO. OF DEVICES IN MAT DD 

C TO MASBAL 

C TN, TNI = INCREMENT END & BEGINNING TIME (HRS) 

C CNVERR=CONVERGENCE ERROR 

C DD, NROW, NCOL =NAME & DIM OF MAT DD 
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48 C 

49 C 

50 C 

51 C 

52 C 

53 C 

54 C 

55 C 

56 C 

57 C 

58 C 

59 

60 

61 C 

62 

63 

64 C 

65 

66 

67 C 

68 C 

69 

70 

71 

72 C 

73 

74 C 

75 


CC , NROWl , NCOLl =NAME & DIM OF MAT CC 
CDI , NROW2 , NCOL2 =NAME & DIM OF MAT CDI 
LIN=NO . OF CONTAMINANTS IN MAT CDI 
LIN2=NO. DEVICES IN MAT DD 
CVOL=CABIN VOLUME (CU M) 

TCABIN=CABIN TEMP (DEG K) 

CINIT=INCR INIT CABIN CONT CONC (MG/CU M)=CC(I,1) 

TO MCALC 
CAVCLC 

ZERO MAT DD COL 17-21 
CALL PRAFIL(DD < NROW,NCOL, 17,21) 

LOAD REM EFF FROM LAST TIME INCR FROM MAT CC INTO MAT DD COL 20 
CALL LODEFF ( I , DD , NROW , NCOL , CC , NROWl , NCOLl , LIN2 ) 

FIND CAV PRED FOR THESE REMOVAL EFFICIENCIES 

CALL MASBAL ( I , TN , TNI , DD , NROW, NCOL , CC , NROWl , NCOLl , 

+ CAVPRD , CDI , NROW2 , NCOL2 , CFINAL, CEQLIB, LIN, LIN2 ) 

SET CAV IN PRED DD{I,22)=CAV IN CALC DD(I,17) 

DO 100 J=l, LIN2 
DD ( J, 22 ) =DD ( J, 17 ) 

100 CONTINUE 


RETURN 

************ end OF SUBROUTINE PREDCT 
END 


*****★**★★★★★★*★*★★★★**★ 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 


RM/FORTRAN Conpiler (V2.42) 

Source File: C:\RMFORT\TCC\RAFILL. Options: /C 80 /L /BY 


05/21/92 12:58:55 


1 c ****************************************************************** 

2 C * SUBROUTINE RAF ILL * 

3 C * SUBROUTINE TO FILL ADJUSTABLE SIZE REAL ARRAY WITH ZEROS * 

4 C ****************************************************************** 

5 SUBROUTINE RAFILL ( XX , NROW, NCOL ) 

6 INTEGER NROW, NCOL 

7 REAL XX (NROW, NCOL) 

8 


9 C XX=ARRAY NAME 

10 C NCOL= COLUMNS IN MATRIX 

11 C NROW= ROWS IN MATRIX 

12 

13 DO 110 1=1, NROW 

14 DO 100 J=l,NCOL 

15 XX ( I, J) =0.0 

16 100 CONTINUE 

17 110 CONTINUE 

18 RETURN 

19 C ************ END OF SUBROUTINE RAFILL ************************** 

20 END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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05/21/92 13:00:11 


RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\RCHBD.F Options: /C 80 /L /BY 


1 C 

2 C 

3 C 

4 C 

5 C 

6 C 

7 C 

8 
9 

10 C 

11 C 

12 C 

13 C 

14 C 

15 C 

16 C 

17 C 

18 C 

19 C 

20 C 

21 C 

22 C 

23 C 

24 C 

25 C 

26 C 

27 C 

28 C 

29 C 

30 C 

31 

32 

33 C 

34 C 

35 C 

36 

37 

38 C 

39 C 

40 C 

41 

42 

43 

44 

45 

46 

47 




* FILE :RCHBD. FOR 

* SUBROUTINE FOR REM EFF-RADIAL FLOW CHARCOAL BED 

* DOESNT ALLOW FOR DESORPTION 

* ASSUMES RELATIVELY THIN BED (OD CLOSE TO ID) 
******************************************** 


★ 

★ 

★ 

★ 


SUBROUTINE RCHBD (TN,TNl,CIIN,TCABIN,COEXIS ; BEDQ, EMAX,CARTL, 
+BEDOD , BEDID , DENCH , TRTTYP , DCONT , VMOL , MW, VCONC , SOL , SMR , EFF ) 
OUTPUT: 

EFF=BED REMOVAL EFF (DEC) 


INPUTS: 

TN, TNI = INCREMENT INITIAL AND FINAL TIMES (HR) 

Cl IN=BED INLET CONT CONC (MG/CU M) 

TCABIN=CABIN TEMP (DEG K) 

COEXIS=COEXISTANCE FACTOR 
BEDQ=BED FLOW RATE (CU M/HR) 

EMAX =MAX I MUM BED EFF (DEC) 

CARTL=CARTRIDGE LENGTH (M) 

BEDOD=BED OUTSIDE DIAMETER (M) 

BEDID=BED INSIDE DIAMETER (M) 

DENCH=DENSITY OF CHARCOAL IN BED (KG/CU M) 

TRTTYP =BED TREATMENT TYPE(1=CI CHAR,2=PHOS ACID, OTHER #=NONE) 
DCONT=CONT LIQUID DENSITY (GM/CC) 

VMOL = CONT MOLAR VOL (GM/CC) 

MW=CONT MOLECULAR WGT , orT 

VCONC = CONT VAPOR CONCENTRATION AT TCABIN (MG/CU M) 
SOL=CONTAMINANT HENRY'S LAW CONSTANT (ATM/MOL FRACTION) 

SMR=SUM OF CONT MASS STORED IN BED (MG) -FROM LAST INCR 


REAL LPREV, LAVNl , LUTIL, LIMM, LAVAV , LADS, MW 
INTEGER FACID, FCI 

SET CIN=CIIN (THIS PREVENTS CIN FROM BEING PASSED BACK UP 
TO OTHER SUBROUTINES IF IT IS SET TO IE-20) 

CIN=CIIN 


BED TREATMENT LOGIC 

FAC I D= FLAG IF BED IS TREATED WITH PHOSPHORIC ACID (Y=l 
FCI=FLAG FOR Cl CHAR IN BED (REMOVES FORMALDAHYDE ) 

IF (NINT (TRTTYP) .EQ. 2) THEN 
FACID=1 
FCI=0 

ELSEIF (NINT (TRTTYP) .EQ. 1) THEN 
FACID=0 
FCI = 1 
ELSE 


N=0 ) 
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48 FACID=0 

49 FCI=0 

50 ENDIF 

51 C 

52 C TEST FOR NO BED FLOW (BEDQ=<0 ) OR 1N-TN1<=0;BEDL, BEDDIA, DENCH=0 

53 IF ( (BEDQ.LE.O) .OR. (TN-TN1 . LE. 0 ) .OR. (CARTL.LE.O) .OR. (BEDOD.LE.O) 

54 +.OR. (DENCH. LE.O) ) THEN 

55 EFF=0 

56 GOTO 199 

57 ENDIF 

58 C TEST FOR Cl CHARCOAL AND FORMALDEHYDE (FCI=1 AND MW=30.03) 

59 IF( (MW.EQ.30.03) .AND. (FCI.EQ.l) ) THEN 

60 CALL RCICH (EFF, EMAX, CARTL, BEDOD, BEDID, DENCH, SMR, BEDQ) 

61 GOTO 199 

62 ENDIF 

63 C 

64 C TEST FOR AMMONIA AND PHOS ACID ON CHAR(FACID=1 AND MW=17.0 ) 

65 IF ( (MW.EQ.17.0) .AND. (FACID.EQ.l) ) THEN 

66 CALL RACCH ( EFF , EMAX , CARTL , BEDOD , BEDID , DENCH , SMR ) 

67 GOTO 199 

68 ENDIF 

69 C 

70 C TEST FOR MOL VOL=0 (NO CHAR REMOVAL) 

71 IF (VMOL.EQ.O) THEN 

72 EFF=0 

73 GOTO 199 

74 ENDIF 

75 C 

76 C CHARCOAL REMOVAL EFFICIENCY CALCULATION 

77 C BED LENGTH (M) -ASSUMES THIN BED 

78 BEDL= (BEDOD-BEDID) /2 

79 IF (BEDL.LT.O) BEDL=0 

80 C BED WGT (KG) 

81 BEDWGT=DENCH * .785* (BEDOD* *2 -BEDID* *2 ) * CARTL 

82 C SUPERFICIAL BED VEL (FT/MIN) 

83 BEDVEL=BEDQ* . 0348/ ( (BEDOD+BEDID) * CARTL) 

84 C TEST FOR CIN TOO SMALL IN AVAL CALC 

85 IF (CIN.LT.1E-20) CIN=lE-20 

86 AVAL= (TCABIN/VMOL) *LOG10 (VCONC/CIN) 

87 C ADS ZONE LENGTH FOR 90% REMOVAL (M) 

88 LADS=AVAL*. 000275* (BEDVEL/1 . 3 ) ** . 8 

89 C GET QI(CC LIQ CONT/GM CHAR) 

90 CALL FQI (AVAL , QI , FACID, SOL) 

91 C LENGTH OF BED PREVIOUSLY USED BY CONT AT THIS C INLET (M) 

92 LPREV=SMR*1 . OE-6*COEXIS*BEDL/ (DCONT*BEDWGT*QI) 

93 C RATE OF BED USAGE (M BED/ MG CONT) 

94 LIMM=1 . OE-6*COEXIS*BEDL/ (DCONT*BEDWGT*QI ) 

95 C LENGTH OF BED AVAILABLE FOR ADS ZONE AT BEGINNING OF INCR (M) 

96 LAVN1=BEDL-LPREV 

97 IF (LAVN1.LT. 0) LAVN1=0 
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98 C 

99 
100 
101 

102 C 

103 

104 C 

105 

106 

107 C 

108 

109 

110 
111 

112 C 

113 

114 

115 

116 

117 

118 C 

119 

120 
121 
122 

123 

124 C 

125 

126 

127 

128 

129 C 

130 

131 C 

132 

133 

134 

135 

NUMBER 

NUMBER 

136 C 

137 C 

138 C 

139 C 

140 

141 C 

142 C 

143 C 


FIX HERE IF DESORPTION IS DESIRED 
IF (LAVNl/LADS .GT. 20 ) THEN 
EFFAV=EMAX 
ELSE 

INIT INCR EFF BASED ON C IN AND BED L AVAIL AT BEG OF INCR(DEC) 
EFAVNl=EMAX* ( 1-EXP ( -2 . 3025851 *LAVNl /LADS) ) 

LOOP FOR EFFICIENCY 

EFFAV=EFAVNl 

DO 399 J=l, 10, 1 

LENGTH OF BED UTILIZ IN INCR (M) 

LUTIL=CIN*BEDQ* EFFAV* (TN-TNl) *LIMM 
IF ( LUTIL . GT . LAVN1 ) THEN 
GOTO 299 
ELSE 

AVERAGE BED LENGTH AVAIL (M) 

LAVAV=LAVNl- LUTIL /2 
IF { (LAVAV/LADS) .GE.20) THEN 
' EFFAV=EMAX 
GOTO 299 
ELSE 

AV EFF BASED ON AV BED L AVAIL (DEC) 

EFFAV=EMAX* ( 1-EXP ( -2 . 3 025851*LAVAV/LADS ) ) 

ENDIF 
ENDIF 
399 CONTINUE 
299 ENDIF 

MAX EFF BASED ON C IN AND RATE OF BED USAGE (DEC) 

EFFMAX=LAVNl/ (CIN*BEDQ* (TN-TNl ) *LIMM) 

IF ( EFFAV . GT . EFFMAX ) EFFAV=EFFMAX 
IF (EFFAV.LT. 0) EFFAV=0 
IF ( EFFAV. GT.EMAX) EFFAV=EMAX 
EFF=ACTUAL EFF OUTPUT FROM SUBROUTINE 
EFF=EFFAV 

REMOVE THIS CHECK IF DESORPTION IS ADDED 
199 IF (EFF.LT.O) EFF=0 

IF (EFF. GT.EMAX) EFF=EMAX 

RETURN 

END 

OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 

* SUBROUTINE RACCH - CALCULATES REMOVAL EFF * 

* BED WITH NH3 AND .2 MILLIMOLE H3P04 ON CHAR * 

SUBROUTINE RACCH ( EFF , EMAX , CARTL , BEDOD , BEDID , DENCH , SMR ) 

OUTPUTS 

EFF=OUTPUT REMOVAL EFF (DEC) 

INPUTS 
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144 C 

145 C 

146 C 

147 C 

148 C 

149 C 

150 C 

151 C 

152 

153 C 

154 

155 

156 

157 

158 

159 

160 C 

161 C 

162 

163 

164 

NUMBER 

NUMBER 

165 C 

166 C 

167 C 

168 C 

169 

170 C 

171 C 

172 C 

173 C 

174 C 

175 C 

176 C 

177 C 

178 C 

179 C 

180 C 

181 

182 C 

183 

184 

185 

186 

187 

188 
189 C 


EMAX=MAXIMUM BED REMOVAL EFF {DEC) 

CARTL=CARTRIDGE LENGTH (M) 

BEDOD=BED OUTSIDE DIAMETER (M) 

BEDID=BED INSIDE DIAMETER (M) 

DENCH =CHARCOAL DENSITY (KG/CU M) 

SMR=SUM OF MASS OF CONT REMOVED AT BEG OF INCR (MG) 

CHAR USED (KG) 

CHRUSD=9 . 61E-6*SMR 
CHAR BED WGT(KG) 

BEDWGT=CARTL * (BEDOD**2-BEDID**2 ) *.785*DENCH 
IF ( CHRUSD . LT .0.8* BEDWGT ) THEN 
EFF=EMAX 
ELSE 

EFF=EMAX*SIN ( (BEDWGT-CHRUSD) *1.57/ (BEDWGT*0 . 2 ) ) 

END IF 

PREVENTS NEGATIVE EFF FOR REACTION 

IF (EFF.LT.0) EFF=0 

IF ( EFF . GT . EMAX ) EFF=EMAX 

RETURN 

END 

OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 

***************************************************** 

* SUBROUTINE RCICH - CALCULATES REMOVAL EFF * 

* FOR FORMALDELYDE AND Cl CHAR BED * 

***************************************************** 

SUBROUTINE RC ICH ( EFF , EMAX , CARTL , BEDOD , BED ID , DENCH , SMR , BEDQ ) 
OUTPUTS 

EFF=OUTPUT REMOVAL EFF (DEC) 

INPUTS 

EMAX=MAXIMUM BED REMOVAL EFF (DEC) 

CARTL=CARTRIDGE LENGTH (M) 

BEDOD=BED OUTSIDE DIAMETER (M) 

BEDID=BED INSIDE DIAMETER (M) 

DENCH =CHARCOAL DENSITY (KG/CU M) 

SMR=SUM OF MASS OF CONT REMOVED AT BEG OF INCR (MG) 
BEDQ=BED FLOW RATE (CU M/HR) 

BEDWGT=CARTL * (BEDOD**2-BEDID**2 ) *.785*DENCH 
PERCENT OF BED WEIGHT CONSUMED (DEC) 

PBWGT=SMR/ ( BEDWGT* 1E6) 

IF (PBWGT.LT. .0012) THEN 
EFF=1-PBWGT*83 . 3 
ELSE 

EFF= . 9 *COS { PBWGT* 1 . 57 / . 05 ) 

END IF 

BED RESIDENCE TIME (SEC) 
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190 BREST= (BEDOD-BEDID) *CARTL* (BEDOD+BEDID) *3600/ {BEDQ*1 . 273 ) 

191 IF (BREST.LT. 0.25) THEN 

192 EFF=EFF*BREST/ . 25 

193 ENDIF 

194 C PREVENTS NEGATIVE EFF FOR REACTION 

195 C IF (EFF.LT.O) EFF=0 

196 IF(EFF.GT.EMAX) EFF=EMAX 

197 RETURN 

198 END 

NUMBER OF WARNINGS IN PROGRAM UNIT: 0 

NUMBER OF ERRORS IN PROGRAM UNIT: 0 

NUMBER OF WARNINGS IN COMPILATION : 0 

NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\REGEN.F Options: /C 80 /L /BY 


05/21/92 13:00:29 


1 C 

2 C 

3 C 

4 C 

5 C 

6 C 

7 C 

8 C 

9 C 

10 C 

11 
12 

13 

14 

15 

16 

17 

18 C NOTE: BEFORE RUNNING THIS SUBROUTINE THE ORIGINAL FLOW RATES FROM 

19 C MAT DD COL 2 MUST BE SAVED IN MAT DD COL 7- AT THE END OF THE 

20 C TIME INCREMENT THEY MUST BE RESTORED TO COL 2 

21 C DIRECT INPUTS: 

22 C TN= INCREMENT END TIME (HRS); TNl=INCR BEGINNING TIME HRS 

23 C DD , NROW , NCOL=NAME AND SIZE OF MAT DD 

24 C CC , NROW1 , NCOLl=NAME AND SIZE OF MAT CC 

25 C CD I , NROW2 , NCOL2 =NAME AND SIZE OF MAT CDI 

26 C LIN=NO. OF CONT IN MAT CDI 

27 C LIN2 =NO. OF DEVICES IN MAT DD 

28 

29 C OTHER INPUTS FROM MAT DD 

30 C TIR=INITIAL (FIRST) REGENERATION TIME (HRS) 

31 C TRC I =REGEN / CHANG EOUT INTERVAL (HRS) 

32 C TRD=REGENERATION DURATION (HRS) 

33 C DEVICE NO., TYPE, FLOW RATE, ETC 

34 

35 C OUTPUTS: 

36 C A) IF REGENERATION OCCURS AT THE BEGINNING OF ANY TIME INCREMENT 

37 C 1 ) FOR ANY DEVICE WHICH IS A CHARCOAL BED 

38 C FOR ALL CONT 1 TO LIN IT PUTS SUM MASS REM=0 IN MAT CC 

39 C COL 12,15,18 48 AS APPROPRIATE FOR THAT DEVICE 

40 C 2) FOR ANY DEVICE WHICH IS A LIOH BED 

41 C IT DOES 1) ABOVE, AND IN ADDITION PUTS SUM MASS REM=0 IN 

42 C MAT DD COL 16 FOR THAT DEVICE 

43 C B) IF REGENERATION IS OCCURRING THROUGHOUT THE WHOLE INTERVAL 

44 C IT SETS Q OF DEVICE=0; IF REGENERATION IS NOT OCCURRING, IT 

45 C SETS Q=THE ORIGINAL VALUE 

46 C 

47 C SUBROUTINES REQUIRED: 


**************************************************************** 

* REGENERATION SUBROUTINE-REGEN * 

* FOR ALL BEDS (3-15) DETERMINES IF BED IS TO BE REGENERATED * 

* AT BEGINNING OF TIME INCREMENT, AND IF REGENERATION IS TO * 

* DURING THE ENTIRE TIME INCREMENT- IF THE BED IS TO BE * 

* REGENERATED THE MASSES STORED ARE SET TO ZERO, AND IF * 

* REGENERATION IS TO OCCUR THROUGHOUT THE TIME INCREMENT THE * 

* BED FLOW RATE IS SET TO ZERO; OTHERWISE IT IS SET TO THE * 

* ORIGINAL VALUE * 

SUBROUTINE REGEN ( TN , TNI , DD , NROW , NCOL , CC , NROWl , NCOLl , 

+CDI , NROW2 , NCOL2 , LIN, LIN2 , IMSGDN ) 

INTEGER NROW , NCOL , NROWl , NCOLl , NROW2 , NCOL2 
REAL DD (NROW, NCOL) 

REAL CC (NROWl, NCOLl) 

REAL CDI (NROW2 , NCOL2 ) 


146 


48 C 

49 C 

50 C 

51 

52 C 

53 

54 

55 C 

56 C 

57 

58 C 

59 

60 C 

61 

62 C 

63 

64 

65 

66 C 

67 

68 C 

69 

70 C 

71 

72 C 

73 

74 

75 

76 C 

77 C 

78 

79 C 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 C 

92 

93 

94 

95 

96 

97 


REGCHG 

START LOOP FOR ALL DEVICES 3 TO 15 

00 if° DEVICE DOES NOT EQUAL CHARCOAL OR LIOH THEN GO TO END OF LOOP 
IF(DD(J,3) .NE. 3 . AND. DD ( J, 3 ) .NE. 4 .AND.DD ( J, 3 ) .NE.5) GOTO 100 


ASSIGN PROPER VARIABLES FOR DEVICE 
DEVICE = CHARCOAL 

IF (DD ( J, 3 ) . EQ. 3 .OR.DD ( J, 3 ) . EQ. 4 ) THEN 
REGENERATION/CHANGEOUT INTERVAL (HRS) 

TRCI=DD ( J , 15) 

REGENERATION DURATION (HRS) 

TRD=DD ( J , 16) 

INITIAL (FIRST) REGENERATION 
TIR=DD ( J, 14) 

ENDIF 

DEVICE = LIOH 
I F ( DD { J , 3 ) . EQ . 5 ) THEN 

REGENERATION/CHANGEOUT INTERVAL (HRS) 

TRCI=DD ( J , 14) 

REGENERATION DURATION (HRS) 

TRD=0 

INITIAL (FIRST) REGENERATION 
TIR=DD ( J , 13) 

ENDIF 

CHECK AND FIX INPUT AS REQ + PRINT WARNINGS 
TIME INCREMENT (HRS) 

TINC=DD (1,11) 

INITIAL TIME NOT EQUAL TO MULTIPLE OF TIME INCREMENT 
IF(AINT(TIR/TINC) .NE. (TIR/TINC) ) THEN 
TIR=AINT (TIR/TINC) *TINC 
OPEN ( IMSGDN , FILE= ' CON ' , IOSTAT=IOVAL ) 

WRITE ( IMSGDN, *) 'INCREMENT BEGINNING TIME ' ,TNl, 

WRITE ( IMSGDN, * ) 'INITIAL TIME NOT = MULTIPLE OF TIME 
+ INCREMENT' 

WRITE ( IMSGDN , * ) ' TRUNCATED TO ' , TIR 
CLOSE (IMSGDN) 

ENDIF 

REGEN/CHGOUT INTERVAL < TIME INCR OR NOT= MULTIPLE OF TIME INCR 
IF (AINT (TRCI/TINC) .NE. (TRCI/TINC) ) THEN 
TRCI=AINT (TRCI /TINC) *TINC 
OPEN ( IMSGDN , FILE= ' CON ' , IOSTAT=IOVAL) 

WRI TE( IMSGDN, *)' INCREMENT BEGINNING TIME ' ,TN1, 

+ DEV NO. , v J^j TE(IMSGDN( . RE geN/CHG TIME NOT = MULTIPLE OF TIME 


147 


98 

99 
100 
101 
102 

103 C 

104 

105 

106 

107 

108 C 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 C 

121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 C 

132 C 

133 

134 

135 C 

136 

137 C 

138 C 

139 

140 

141 

142 101 

143 

144 C 

145 

146 

147 


+ INCREMENT 1 

WRITE ( IMSGDN , * ) ' TRUNCATED TO 1 , TRCI 
CLOSE ( IMSGDN) 

ENDIF 

IF REGEN/CHGOUT INTERVAL <= 0 THEN GOTO END OF LOOP FOR CONT 
IF (TRCI.LE.0) THEN 
GOTO 100 
ENDIF 


REGEN DURATION < OR NOT = MULTIPLE OF TIME INCREMENT 
IF (AINT (TRD/TINC) .NE. (TRD/TINC) ) THEN 
TRD= AINT ( TRD / T INC ) *TINC 
OPEN ( IMSGDN, FILE= ' CON ' , IOSTAT=IOVAL) 

WRITE ( IMSGDN, * ) ' INCREMENT BEGINNING TIME ' , TNI , 

+ ' DEV NO. ' , (J) 

WRITE ( IMSGDN, *) 'REG DURATION NOT = MULTIPLE OF TIME 
+ INCREMENT' 

WRITE ( IMSGDN , * ) ' TRUNCATED TO ' , TRD 
CLOSE (IMSGDN) 

ENDIF 


REGENERATION DURATION > REGEN/CHG INTERVAL 
IF (TRD. GT. TRCI) THEN 
TRD=TRCI 

OPEN ( IMSGDN, FILE= ' CON ' , IOSTAT=IOVAL) 

WRITE ( IMSGDN, * ) ' INCREMENT BEGINNING TIME ' , TNI , 

+ ' DEV NO. ' , (J) 

WRITE (IMSGDN, *) 'REGEN DURATION > REGEN/CHG INTERVAL' 
WRITE ( IMSGDN , * ) ' TRUNCATED TO ' , TRD 
CLOSE ( IMSGDN) 

ENDIF 

CHECK TO SEE IF REGENERATION OCCURS AT BEGINNING OF TIME INCR, 
AND IF REGEN OCCURS THROUGHOUT WHOLE TIME INCREMENT 

CALL REGCHG (TNI , TRCI , TRD, TIR, TINC , IRBFLG, IRTFLG) 

REGENERATION OCCURS AT BEGINNING OF INCREMENT 
IF (IRBFLG. EQ. 1) THEN 

PUT SUM MASS REM =0 IN MAT CC FOR THIS DEVICE 
START LOOP FOR ALL CONT FOR THIS DEVICE 
K=J*3+3 

DO 101 1=1, LIN 
CC (I , K) =0 
CONTINUE 

IF DEVICE = LIOH BED PUT SUM MASS=0 IN DD(J,16) 

IF (DD ( J, 3 ) . EQ. 5) THEN 
DD ( J, 16 ) =0 
ENDIF 
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ENDIF 


148 

149 

150 C 

151 

152 C 

153 

154 

155 C 

156 

157 

158 

159 C 

160 
161 
162 

163 

NUMBER 

NUMBER 

164 

165 

166 C 

167 C 

168 C 

169 C 

170 C 

171 C 

172 

173 C 

174 C 

175 C 

176 C 

177 C 

178 C 

179 C 

180 C 

181 C 

182 C 

183 C 

184 C 

185 C 

186 C 

187 

188 C 

189 

190 

191 

192 

193 


REGENERATION OCCURS THROUGHOUT ENTIRE INCREMENT 
IF (IRTFLG.EQ. 1) THEN 
SET DEVICE Q=0 
DD ( J, 2 ) =0 
ELSE 

SET DEVICE Q= ORIGINAL VALUE 
DD ( J, 2 ) =DD ( J, 7 ) 

ENDIF 

END OF J LOOP FOR EACH DEVICE 
100 CONTINUE 

RETURN 

END 

OF WARNINGS IN PROGRAM UNIT: 0 
OF ERRORS IN PROGRAM UNIT: 0 


************************************************************** 

* AUXILIARY REGENERATION SUBROUTINE - REGCHG 

* DETERMINES IF REGEN/CHANGEOUT IS TO OCCUR AT BEGINNING OF 

* TIME INCREMENT-ALSO DETERMINES IF REGENERATION IS OCCURRING 

* THROUGHOUT THE TIME INCREMENT 
************************************************************** 

SUBROUTINE REGCHG (TNI , TRCI , TRD , TIR , TINC , IRBFLG , IRTFLG) 

INPUTS : 

TNl= INCREMENT INITIAL TIME (HRS) 

TRC I = C HANGEOUT / REGENERAT I ON INTERVAL (HRS) 

TRD=REGENERATION DURATION (HRS) 

TIR= INITIAL (FIRST) REGENERATION TIME (HRS) 

TINC=TIME INCREMENT (HRS) 

OUTPUTS : 

REGENERATION OCCURS AT BEGINNING OF TIME INCREMENT (Y OR N) 

( IRBFLG=1 FOR Y & 0 FOR N) 

REGENERATION IS OCCURRING THROUGHOUT THE WHOLE INCREMENT (Y OR N) 

( IRTFLG=1 FOR Y & 0 FOR N) 


REGENERATION OCCURS AT BEGINNING OF TIME INCREMENT 

IF (TN1.EQ.0) GOTO 10 
IF (TNI. LT. TIR) GOTO 10 
IF(TRCI.LE.O) GOTO 10 

IF (AINT ( (TNl-TIR) /TRCI) .EQ. ( (TNl-TIR) /TRCI) ) THEN 



194 C REGENERATION OCCURS 

195 IRBFLG=1 

196 GO TO 20 

197 ENDIF 

198 C NO REGENERATION OCCURS 

199 010 IRBFLG=0 

200 020 CONTINUE 

201 

202 C REGENERATION OCCURRING THROUGHOUT ENTIRE TIME INCREMENT 

203 

204 IF(TRCI.LE.O) GOTO 30 

205 IF( (TRD.LE.0) .OR. (TN1.LT.TIR) ) GOTO 30 

206 IF (TN1.GE.AINT( (TN1-TIR) /TRCI) *TRCI+TIR+TRD) THEN 

207 GOTO 30 

208 ELSE 

209 C REGENERATION OCCURS 

210 IRTFLG=1 

211 GOTO 40 

212 ENDIF 

213 

214 C REGEN DOESN'T OCCUR 

215 030 IRTFLG=0 

216 

217 040 CONTINUE 

218 RETURN 

219 END 

NUMBER OF WARNINGS IN PROGRAM UNIT: 0 

NUMBER OF ERRORS IN PROGRAM UNIT: 0 

NUMBER OF WARNINGS IN COMPILATION : 0 

NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\RINCDD. Options: /C 80 /L /BY 05/21/92 13:00:48 

2 q ★★★★★*★*★★★**★***★★**★★★★★★**★★★**★*★*★★★★**★*★★★★★★★★★**★****■**★ 

2 C * SUBROUTINE RINCDD * 

3 C * SUBROUTINE TO OPERATE ON INCREMENT DEPENDENT DATA * 

4 C * READS DATA FROM MAT TT AND PUT IT IN THE PROPER PLACES IN * 

5 C * MAT CDI OR MAT DD - USED AT THE BEGINNING OF EACH TIME INCR * 

g Q ******************* ********************************************* * 

7 

8 SUBROUTINE RINCDD ( I , TN , TNI , DD , NROW, NCOL , LIN2 , 

9 +CC , NROWl , NCOLl , CDI , NROW2 , NCOL2 , LIN, TT, NTTROW, NTTCOL , LINl ) 

10 INTEGER NROW, NCOL , NROWl , NCOLl , NROW2 , NCOL2 , NTTROW , NTTCOL 

11 REAL DD (NROW, NCOL) 

12 REAL CC( NROWl, NCOLl) 

13 REAL CDI (NROW2 , NCOL2 ) 

14 REAL TT( NTTROW, NTTCOL) 

15 

16 C SUBROUTINES REQUIRED: 

17 C NONE 

18 C DD, NROW, NCOL, LIN2=NAME, DIM & NO DEV IN MAT DD 

19 C CC, NROWl, NCOLl =NAME & DIM OF MAT CC 

20 C CDI, NROW2, NCOL, LIN=NAME, DIM & NO CONT IN MAT CDI 

21 C TT, NTTROW, NTTCOL, LINl =NAME, DIM & NO ITEMS IN MAT TT 

22 

23 IF (LIN1.EQ.0) GOTO 999 

24 C BEGIN LOOP FOR ALL LINES IN MAT TT 

25 DO 100 K=1 , LINl 

26 

27 C CHECK FOR TIME >= TNI AND < TN 

28 IF ( (TT(K, 1) .LT.TNl) .OR. (TT(K, 1) .GE.TN) ) THEN 

29 GO TO 100 

30 ENDIF 

31 

32 C IDENTIFY VARIABLES 

33 ICONTN=NINT ( TT ( K , 2 ) ) 

34 GENRT=TT ( K , 3 ) 

35 IDEVNO=NINT (TT (K, 4 ) ) 

36 DEVQ=TT (K, 5) 

37 ICOLNO=TT(K, 6) 

38 VAL=TT (K , 7 ) 

39 

40 C ICONTN= INTEGER CONTAMINANT NO. - TT(K,2) 

41 C GENRT=CONT GENERATION RATE (MG /HR) - TT(K,3) 

42 C IDEVNO= INTEGER DEVICE NUMBER - TT(K,4) 

43 C DEVQ=DEVICE FLOW RATE (CU M/HR) - TT(K,5) 

44 C ICOLNO=INTEGER COLUMN NUMBER IN MAT DD - TT(K,6) 

45 C VAL=NEW VALUE IN MAT DD - TT(K,7) 

46 

47 C CASE NO. 1 - CHANGE CONTAMINANT GENERATION RATE 


151 



48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 C 

59 C 

60 C 

61 C 

62 

63 

64 

65 

66 C 

67 

68 

69 

70 

71 C 

72 

73 

74 

75 

76 

77 

78 

79 


IF ( ( ICONTN . GT . 0 ) . AND . ( ICONTN . LE . LIN) ) THEN 
IF ( IDEVNO . EQ . 1 ) THEN 
CD I ( ICONTN , 1 ) =GENRT 

ELSEIF ( (IDEVNO. GE. 3) .AND. (IDEVNO. LE.LIN2) ) THEN 
CDI (ICONTN, (7+IDEVNO) ) =GENRT 
ENDIF 
GOTO 100 
ENDIF 

CASE 2 - CHANGE DEVICE FLOW OR OTHER DD DATA 

THIS CASE WORKS ONLY IF ANY CONT NO. <=0 

MUST USE -1 FOR ANY Q OR NEW VALUE NOT TO BE CHANGED 

MAT DD COL NO. <0 ALSO STOPS NEW VALUE FROM BEING CHANGED 

IF ( ICONTN. LE.0) THEN 

IF ( (IDEVNO. GE.l) .AND. ( IDEVNO. LE. LIN2 ) ) THEN 
IF(DEVQ.GE.O) THEN 

CHANGE DEVICE FLOW IN MAT DD 
DD ( IDEVNO , 2 ) =DEVQ 
ENDIF 

IF ( ( ICOLNO . GE . 1 ) .AND. (ICOLNO.LE.16) ) THEN 
IF (VAL.GE.0) THEN 

CHANGE VALUE IN MAT DD 
DD ( IDEVNO, ICOLNO) =VAL 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

100 CONTINUE 
999 RETURN 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\RRIN.FO Options: /C 80 /L /BY 05/21/92 13:00:57 

1 c ****************************************************************** 

2 C * SUBROUTINE RRIN * 

3 C * SUBROUTINE TO READ REAL DATA INTO MAT XX (ROW, COL) * 

4 C * RETURNS NUMBER OF LINES OF DATA READ FROM FILE * 

5 C * READS FROM COL 1 TO COL LSTCOL * 

6 C ****************************************************************** 

7 C NOTE: INPUT NUMBERS MUST BE SEPARATED BY BLANKS 

8 SUBROUTINE RRIN (XX, NROW,NCOL, LSTCOL, LIN) 

9 INTEGER NROW, NCOL , IOVAL , LSTCOL , LIN 

10 CHARACTER FNAME*24 

11 REAL XX (NROW, NCOL) 

12 IF ( LSTCOL. GT. NCOL) LSTCOL=NCOL 

13 010 READ ( * , ' (A) ' ) FNAME 

14 OPEN ( 1 , FILE=FNAME , STATUS= 1 OLD ' , IOSTAT= IOVAL ) 

15 IF ( IOVAL . NE . 0 ) GOTO 900 

16 LIN=0 

17 DO 100 1=1, NROW 

18 READ ( 1 , * , IOSTAT=IOVAL, END=500 , ERR=900 ) (XX (I , J) , J=1 , LSTCOL) 

19 LIN=LIN+1 

20 100 CONTINUE 

21 500 WRITE ( * , ' (A) ' ) ' DONE WITH FILE INPUT' 

22 WRITE ( * , * ) ' ' 

23 CLOSE (1) 

24 GOTO 990 

25 900 WRITE (*,*)' IOERROR= 1 , IOVAL 

26 CLOSE (1) 

27 WRITE (*,*) 'WHAT IS THE INPUT FILE NAME? ’ 

28 GOTO 10 

29 990 RETURN 

30 C ************ pyf\TD OF SUBROUTINE RRIN ****************************** 

31 END 

NUMBER OF WARNINGS IN PROGRAM UNIT: 0 

NUMBER OF ERRORS IN PROGRAM UNIT: 0 

NUMBER OF WARNINGS IN COMPILATION : 0 

NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\RROUT.F Options: /C 80 /L /BY 


05/21/92 13:01:03 


********************************** 




* SUBROUTINE RROUT 

* SUBROUTINE TO WRITE DATA TO CONSOLE, OR PRINTER 

* WRITES REAL DATA FROM MAT XX (ROW, COL) 

* WRITES FROM FSTCOL TO LSTCOL 
**************************************************************** 

SUBROUTINE RROUT ( XX, NROW,NCOL, FSTCOL, LSTCOL, LIN, IMSGDN , FNAME , 

+ IDEVNO, IOVAL) 

INTEGER NROW , NCOL , IOVAL , FSTCOL , LSTCOL , LIN , IDEVNO 
CHARACTER FNAME* 2 4 , DES*1 
REAL XX (NROW, NCOL) 

IF ( FSTCOL. GT. NCOL) FSTCOL=NCOL 
IF ( LSTCOL. GT. NCOL) LSTCOL=NCOL 
IF ( FSTCOL. GT. LSTCOL) FSTCOL=LSTCOL 
010 OPEN ( IMSGDN, FILE= ' CON' , IOSTAT= IOVAL) 

WRITE (IMSGDN, ' (A) ' ) ' WRITE TO LPT1 OR CON OR END 1 

CLOSE (IMSGDN) 

READ ( * , ’ (A) 1 ) FNAME 

QUIT IF FNAME=END 

IF (FNAME. EQ. 'END' ) GOTO 990 

IF ( ( FNAME . NE . ' LPTl ' ) . AND . ( FNAME . NE . 1 CON ' ) ) GOTO 10 
OPEN ( 1 , FILE=FNAME , IOSTAT= IOVAL) 

IF ( IOVAL. NE . 0 ) GOTO 900 
DO 110 1=1, LIN 

WRITE (1, 70, IOSTAT=IOVAL,ERR=900) (XX(I, J) , J=FSTCOL, LSTCOL) 
WRITE (IDEVNO, 70 , IOSTAT=IOVAL , ERR=900 ) (XX (I, J) ,J=FSTCOL, LSTCOL) 
070 FORMAT ( IX, 7G1 1.4) 

WRITE (1, *, IOSTAT=IOVAL,ERR=900) 

WRITE (IDEVNO, *, IOSTAT=IOVAL,ERR=900) 

110 CONTINUE 

CLOSE (1) 

GOTO 990 

900 OPEN ( IMSGDN, FILE=' CON' , IOSTAT= IOVAL) 

WRITE ( IMSGDN, * ) ' IOERROR= ' , IOVAL 
CLOSE (IMSGDN) 

CLOSE (1) 

CLOSE (IDEVNO) 

GOTO 10 
990 RETURN 

*************** end OF SUBROUTINE RROUT ********************** 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 


154 


05/21/92 13:01:08 


KM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\RROUT2. Options: /C 80 /L /BY 


1 

2 

3 

4 

5 

6 

7 

8 
9 


****************************************************************** 
SUBROUTINE RROUT2 

SUBROUTINE TO WRITE DATA TO CONSOLE, OR PRINTER 
WRITES REAL DATA FROM MAT XX (ROW, COL) 

WRITES FROM FSTCOL TO LSTCOL 
****************************************************************** 

SUBROUTINE RROUT2 ( XX , NROW , NCOL , FSTCOL , LSTCOL , LIN , IMSGDN ) 

INTEGER NROW, NCOL , IOVAL , FSTCOL , LSTCOL , LIN , IDEVNO 
CHARACTER FNAME*24 , DES*1 


10 


REAL XX (NROW, NCOL) 

11 


IF ( FSTCOL. GT. NCOL) FSTCOL =NCOL 

12 


IF (LSTCOL. GT. NCOL) LSTCOL=NCOL 

13 


IF ( FSTCOL. GT. LSTCOL) FSTCOL=LSTCOL 

14 

010 

OPEN (IMSGDN, FILE='CON' , IOSTAT=IOVAL) 

15 


WRITE (IMSGDN, ' (A) • ) ' WRITE TO LPTl OR CON 

16 


CLOSE (IMSGDN) 

17 


READ ( * , ' ( A) ' ) FNAME 

18 


QUIT IF FNAME=END 

19 


IF (FNAME. EQ. ' END 1 ) GOTO 990 

20 


IF ( ( FNAME . NE . ' LPTl ' ) . AND . ( FNAME . NE . ' CON ' ) ) 

21 


OPEN ( 1 , FILE=FNAME , IOSTAT=IOVAL) 

22 


IF ( IOVAL. NE.0) GOTO 900 

23 


DO 110 1=1, LIN 

24 


WRITE (1,70, IOSTAT= IOVAL , ERR=9 00) ( XX ( I , J ) 

25 

070 

FORMAT ( IX, 7G1 1.4) 

26 


WRITE ( 1 , * , IOSTAT=IOVAL, ERR=900) 

27 

110 

CONTINUE 

28 


CLOSE (1) 

29 


GOTO 990 

30 

900 

OPEN ( IMSGDN, FILE= ' CON ' , IOSTAT= IOVAL) 

31 


WRITE (IMSGDN, * ) ' IOERROR= ‘ , IOVAL 

32 


CLOSE (IMSGDN) 

33 


CLOSE (1) 

34 


GOTO 10 

35 

990 

RETURN 

36 C 


*************** END OF SUBROUTINE RROUT 

37 


END 




NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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RM/FORTRAN Compiler (V2.42) 

Source File: C:\RMFORT\TCC\SLIOH.F Options: /C 80 /L /BY 05/21/92 13:01:15 


1 C 

2 C 

3 C 

4 C 

5 C 

6 

7 

8 
9 

10 

11 

12 

13 C 

14 C 

15 C 

16 C 

17 C 

18 C 

19 C 

20 C 

21 C 

22 

23 C 

24 C 

25 C 

26 C 

27 

28 C 

29 C 

30 C 

31 C 

32 C 

33 

34 

35 C 

36 

37 C 

38 

39 C 

40 

41 C 

42 

43 

44 

45 C 

46 

47 C 


**************************************************************** 

* SUBROUTINE- SLIOH * 

* SUM LIOH USED IN TIME INCREMENT FOR EACH BED ONE AT A TIME * 

* AND FOR ALL CONTAMINANTS FOR EACH BED * 

**************************************************************** 


SUBROUTINE SLIOH ( TN , TNI , DD , NROW, NCOL , CC , NROWl , NCOLl , 

+CDI , NROW2 , NCOL2 , LIN, LIN2 ) 

INTEGER NROW, NCOL , NROWl , NCOLl , NROW2 , NCOL2 
REAL DD (NROW, NCOL) 

REAL CC (NROWl, NCOLl) 

REAL CDI (NROW2 ,NCOL2 ) 

SUBROUTINES REQUIRED: NONE 
DIRECT INPUTS: 

TN= INCREMENT END TIME (HRS); TNl=INCR BEGINNING TIME HRS 

DD , NROW , NCOL=NAME AND SIZE OF MAT DD 

CC, NROWl, NCOLl=NAME AND SIZE OF MAT CC 

CDI , NROW2 , NCOL2 =NAME AND SIZE OF MAT CDI 

LIN=NO. OF CONT IN MAT CDI 

LIN2 =NO. OF DEVICES IN MAT DD 

OTHER INPUTS FROM MAT DD 
DD ( J, 3 ) =DEVICE NUMBER 

DD ( J , 1 6 ) = AMT OF LIOH PREVIOUSLY USED BY DEVICE 

CDI (1,17) =LB LIOH UTIL/LB CONT ADSORBED IN BED (FOR ONE CONT) 

OUTPUTS (STORED IN MAT DD) : 

DD ( J, 16 ) =AMOUNT OF LIOH UTILIZED BY DEVICE THROUGH THE END OF 
THIS TIME INCREMENT 

DD { J , 1 5 ) =RATE OF LIOH USAGE FOR DEVICE 


K=ll 


START LOOP FOR ALL DEVICES 3 TO 15 
DO 100 J=3 , LIN2 

CHECK FOR DEVICE = LIOH BED 
IF (DD ( J, 3 ) . EQ. 5 ) THEN 

RATE OF LIOH UTILIZATION (KG/HR) 

RWUTLI=0 

BEGIN LOOP FOR ALL CONTAMINANTS 
DO 110 1=1, LIN 

RWUTLI =RWUTLI +CC ( I , K ) *001(1,7) *lE-6 
110 CONTINUE 

STORE RATE OF LIOH UTILIZATION IN MAT DD FOR THIS DEVICE 
DD ( J , 1 5 ) =RWUTLI 

UPDATE AMOUNT OF LIOH UTIL THROUGH THE END OF TIME INCR(KG) 
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48 

49 

50 

51 C 

52 

53 

54 


DD ( J , 16) =DD ( J , 1 6 ) +RWUTLI * (TN-TNl) 
ENDIF 
K=K+3 

END J LOOP 
100 CONTINUE 
RETURN 
END 


NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 



APPENDIX B 

TOXIC HAZARD INDEX DESCRIPTION 


PRECEDING PAGE BLANK NOT FILMED 


The toxic hazard index, or T-value, is the method used by toxicologists to assess the 
acceptability of an atmosphere containing a mixture of contaminants. This approach is derived from 
the American Conference of Governmental Industrial Hygienists guidelines for setting threshold limit 
values for contaminant mixtures. Since the effects on humans of many atmospheric contaminants are 
considered to be additive this mixture approach is applied to sixteen contaminant groups. The groups 
considered in the T-value calculation used in the TCCS Computer Program are the following: 

1. Alcohols 

2. Aldehydes 

3. Aromatic hydrocarbons 

4. Esters 

5. Ethers 

6. Chlorocarbons 

7. Chlorofluorocarbons 

8. Fluorocarbons 

9. Hydrocarbons 

10. Inorganic acids 

11. Ketones 

12. Mercaptans and sulfides 

13. Nitrogen oxides 

14. Organic acids 

15. Organic nitrogens 

16. Miscellaneous 

The group numbers used in the computer program output correspond to the above group listing. 

The T-value is calculated for each group by calculating the sum of the ratios of the 
contaminants’ concentrations to their maximum allowable concentration while the overall T-value is 
the sum of the group T-values for the alcohols, aldehydes, aromatic hydrocarbons, esters, ethers 
hydrocarbons, inorganic acids, ketones, nitrogen oxides, organic acids, and miscellaneous groups’ 

These calculations are conducted according to the following equations* 
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r jroup =Sc/c„ (Bi) 

^overall = ^ ^group t (®2) 

where C c is the contaminant concentration in the atmosphere in mg/m 3 and C m is the maximum 
allowable concentration in the atmosphere in mg/m 3 . 

The criteria for acceptability are the following: 

1. The T- value for each group must be less than one 

2. The overall T-value must be less than one 

If either of these criteria are exceeded, the atmosphere is considered unacceptable. 
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